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1.0 ABSTRACT 


Ee ef ede Ber. OTE. 
Ss 


OR DETECTION LOGIC ON CHECKED BY MANUAL & SOFTWARE ERROR FORCING. 
AFTER A SUCCESSFUL RUN (WITH _NO ERRORS) OF THIS PART, ” 
TH GaA BE Pasehte TAT THE Fie “bai Ve frtu® HSA SUCCESSFULLY 
MS INTERACTION, & ERROR RATE 
ANALYSIS "ORE terre TO 0 OTHER SPROGRANS. 
et ANG 19.08 coresTS AND fs) PROCEEDING NG. THRU DYNA ANC. TESTING. 
its PROGRAR wit TTPO RDS & RKO? WITHOUT NEED © 
OPERATOR INPUTS 
HRRRECAUT IONHHHHH 

HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF A PASS, 


MAY LEAVE THE HEADERS IN THE DISK CARTRIDGE IN AN 
UNDETERMINED STATE. 


TES 
BAS THE 
TE 
TH 


2.0 REQUIREMENTS 
2.1 HARDWARE 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


KW1l1-L_ OR KW11-P CLOCK 
RKO& UNIBUS CONTROLLER (RK611) 
1 TO 8 RKO6B/RKO7 DRIVES 


L TIMING 


NOTES: ITHER et oe ‘Sear IS USED 


fF T L A MESSAGE AT fhe 
BESINNING oF THe Peete: WILL ESRF TaN THIS. 
2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 
2.2 PRELIMINARY TESTING & PROGRAMS 
THE RK611 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU 
FOLLOWED BY THE RKO& DRIVE DIAGNOSTICS - PARTS | & 2. 


3.0 PROGRAM CONSIDERATIONS 


OH GSOVONLOV—ODD NO LO ODO VON LO ODD IRN EOL Ow we Ae Lote wee 
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PDP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED BY THE POP-11704,05,10,20, 
34,35,40,45,50, & 70. 


IT IS COMPATABLE WITH 


THE STRUCTION SET AND CAN TEST 
THE RKOG ONLY IF THE rad 3 


SI-11 IN 

CONTROLLER FOR THE LSI-11 IS 
LY COMPATABLE WITH THE RK611. 
XXDP 

THIS PROGRAM SHOULD NOT BE CHAINED BY XxXDP. 

CHAIN MODE OPERATION (MONITOR) 


BY DEFINITION, ANY PROGRAM THAT REQUIRES 
OPERATOR INTERVENTION SHOULD NOT BE CHAINED. 


DUMP MODE OPERATION (MANUAL ) 


1. INPUT OIAL F STARTED FROM 220. 
e. ORIVE 5 CAN BE fEstep BUT THE OPERATOR IS FIRST GIVEN 


A MESSAGE TO REPLACE THE PACK IN ORO WITH A SCRATCH 
PACK & TYPE <CR> WHEN DONE. 
ACT/APT 


THIS PROGRAM IS ACT COMPATIBLE. 
HOWEVER, IT SHOULD NOT BE RUN IN THE AUTO MODE. 


AUTOMATIC MODE (MONITOR) 
BY DEFINITION, ANY PROGRAM THAT REQUIRES 

OPERATOR INTERVENTION SHOULD NOT BE 

RUN IN THE AUTO MODE. 

DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 
APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFY 
TABLE (ETABLE) ENTRIES, VIA RUNNING THE APi UTI 


1. SOFTWARE PRT 
=1 IF APT SCRIPT MODE 
=0 IF STANDALONE MODE 


2. ENVIRONMENT MODE: 
BIT 7=1 


NG APT ENVIRONMENTAL 


I 
LITY PROGRAM “TSP”: 


ETABLE DOES SIZING 

= PROGRAM DOES SIZING 
BIT&=1 SPOOL MESSAGES TO APT IF SCRIPT MODE 

=0 DON’T SPOOL TO APT 
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BITS =1 SUPPRESS CONSOLE OUTPUT 
<0 ALLOW CONSOLE OUTPUT 
. BITS 4-0 NOT USED 

9. -SHITCH 1 {SOFTWARE SWITCH REGISTER) : 
the Sore ITH Oe PcIsTER HILT Be USED, INSTEAD’ 
oF eae GNSOLE SMITCH REGISTER, 'RELARDLESS 
4.3 8 4.4 ( Tick REGISTER OFf oP TONS) MAY USED 
WHEN RUNNING IN STANDAL . _IN APT SCRIPT MODE, 
HOWEVER, BIT 14 (L LONG ODE ust AC UAYe BE SET 


4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 

5. CPU OPTIONS: 
NOT USED 

6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 


7. INTERRUPT VECTOR 1: 


USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 
8. BUS PRIORITY 1: 

USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = S 
9. INTERRUPT VECTOR 2: 

NOT USED 
10. BUS aor ieen 2: 
ll. BASE ADDRESS: 
WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


12. DEVICE MAP: 
USED_WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT 
SET TO 1 IN BITS O-7 WILL SELECT THE CORRESPONDING 
DRIVE TO BE TESTED. BITS 8-15 ARE NOT USED. 


13.CONTROLLER DESCRIPTOR WORDS: 
NOT USED 

14. DEVICE DESCRIPTOR CODES (IN WORDS): 
NOT USED 


DUAL ACCESS 

THIS pRoanen WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TO a PORT UNDER 
TEST TO PREVENT CONTENTION WITH THE OTHER PORT 


DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM 


SEQ O00s 


CZREJEO pee RK 


CZREJE. 


Pll 


eta 


DR_PRT 
N-78 1 
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MEMORY MANAGEMENT 
MEMORY MANAGEMENT NOT USED 
PARITY CHECK ENABLED 


IF_THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 


BAD SECTOR 

THE PROGRAM WILL COMPARE eer en WITH THE BAD the 
INFORMATION CONTAINED ON CYLINDER 410, HEAD 2. PRINTOUTS 
OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT. 
EXECUTION TIME 
TOTAL TIME: APPROX S MINUTES TO DO ALL THE TESTS 

(BASED ON THE POP 11750) 

FAULT ISOLATION 
TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 

THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
ANALYSIS. 

DEFAULT UNTBL'S ADDRESSES & VECTORS 

THE FC .OWING IS _A BE USED OF a. DEFAULT ADDRESSES & VECTORS 


OF ALL _HARDWARE TO HEIR MEMORY ADDRESSES 
WHERE THEY CAN BE CHA 


LOCATION DEFAULT CONTENTS 

1264 177440 
ONFROLLER eng VECTOR 1334 210 
1336 240 

Pocock bots REG 1340 172540 

1342 172eS4e 

P-ELO 1344 172544 

C=C ok star Hep REG 1346 177546 
L-CLOCK CTOR 1350 100 
P-CLOCK INTERRUPT VECTOR 1352 104 

TTY KB STA 11494 177560 

TTY KB BUFFER 1146 177562 


SEQ 0006 
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TTY PRINTER STATUS REG 1150 177564 
TTY PRINTER BUFFER 115e 177566 


OPERATING PROCEDURE 8&8 CONTROL FUNCTIONS 
PROGRAM LOADING 


HE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR, SBSOLUTE LOADER TAPES; OR FROM ANY MEDIA 


LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


SET ORIVES TO BE TESTED IN THE ae he CONDITION & WITH THE 
RESPHENAE HCERED RERUN TA BonOSTOBUBCEEED, OTEVES 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’ 
a THE RUN/STOP SWITCH IS IN THE ’STOP’ 


PRESS ’START’ 


HE PROGRAM H THE LR a ITSELF _AND WILL BEGIN A 
DEALOGUE Hi ps ERATOR TO DETERMINE DRIVES TO BE TESTED 


THE 
T 
T' 


ONE 
TN SEQUENCES <THE DRIVE 16 
BEGINNING OF EACH PASS. ™ 
TESTING ALL DRIVES. 


STARTING LOCATIONS 


LOCATION 200 - RIBRTING AQORERS 19 DEFAULT THE BUSS 
DORESS & NTROLLER INTERRUPT VECTOR 
TEST ALL DRIVES IN THE ’DRIVE PRESENT’ 
ONDITION. 
NOTE THE DRIVE PRESENT CONDITION IS: 


SEQ 0007 
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HEADS MANUALLY LOADED 
RECT PORT SELECTED 


COR 
- WRIT K DISABLE 
: DRIVE READY INDICATOR ON 
LOCATION 226 - STARTING OoRe TO INPUT TESTING PARAMETERS 
VIA_THE INPUT DIALOGUE. BUSS ADDRESS & 
sO estate 
1ST PASS. 


o0oOWwD 


VECTOR INPUTTED ONLY ON 
IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 


ALSO, THE PROGRAM WILL DETERMINE IF THE ORIVE 
1S AN RKO& OR RKO7 WITHOUT OPERATOR INPUT. 


SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 
SWITCH 


ed el ee 
WOr~mvuw cul 


SW<15> 


THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT 
THE ERROR MESSAGE AND PERTINENT INFORMATION 
PRESSING “CONTINUE” C 


SW< 14> 


THE PROGRAM LOOPS ON be 


THAT BEING EXECUTED WHEN 
THE SWITCH IS PUT ON. ITc 
WITH SW1S. 


T I 
HIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 


THIS SWITCH_INHIB 
LOOPING ON TEST ( 


ITS ALL_ERROR MESSAGES. NORMALLY USED WHEN 
SW14) OR LOOPING ON ERROR (SW9). 


SW< 12> 


ONTINUES NORMAL OPERATION OF THE PROGRAM. 


SEQ 0008 
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THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SW<11> 


EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY AFTER THE 
FIRST PASS, EACH SUBTEST IS ITERATED A NUMBER OF TIMES 
(USUALLY 50, 5 IN SOME CASES). SETTING THIS SWITCH INHIBITS 
ITERA TONS, "SO THAT QUICK PASSES CAN BE MADE. 


SW< 10> 
RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


SW<09> 


THIS SWITCH PROVIDES THE TIGHT iy" POSSIBLE SCOPE LOOP FOR 
ERRORS. iF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 


SOFTWARE’ SWITCH REGISTER 


RUN_ON A _SWITCHLE 3S Perea e (I.E. AN 11704 OR 11734) 
the "PR GRAM AT ry C Teat, He HARDLARE c Beh CH REGIS IER Is 
NO SENT AND GISTER. 
SOF TWARE ’ suITCH A: ii te 176 (8). THE 
R 


ING e sh ocatTon THROUGH 
en othe ag PgR reButeste 
Peet , ie Ney ANY TIME EXCEPT WHEN 
PSO TARE Ler Migs: Reo. A an AN RKOG INTERRUPT. 
IN ie eed? itd Rican ey NTRY ROUTINE: 
SWR = NNNNNN NEW = 
EACH fitsa: "Br TTING 8 ENTERED, THE ENTIRE SWITCH REGISTER 
ING ZEROS ARE NOT REQUIRED. 
RUB u’ LEONG T TONS MAY BE USED TO CORRECT TYPING 
ERR TOURING Oe Tene ENTRY. 
ren ee WITH HARDWARE Sid 
SurTcH GISTER 


MAY BE U . 

UP’ posit ON, ALL SWIT 

16 TH ‘SOFT —&’ REGISTER AND 
MUST Or TOWED. 


STERS, THE *SOFTWARE’ 
OGRAN FINDS oh iP SWITCHES 
E 


Onn 


R REFERENCES W 
CEDURES DESCRIBED ABOVE 


INPUT DIALOGUE 


THE DEOL GUE Wibh e pe DONE INTERACTIVELY. _THE PROGRAM WILL 
REQUEST A PARAM BY CONSOLE TYPEOUT. THE PARAMETER MA 
THEN BE ENTERED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT 


CZR6JEO UNIBUS RK& DR _PRT3 
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RESPONSES WILL 


BY A CARRIAGE RETURN. UNRECOGNIZED OR ILLEGAL 
ER RESPONSE MAY 


BE ECHOED BACK FOLLOWED BY “?". THE PROP 
THEN BE ENTERED. 
IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 
DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


he DEFAULT RESPONSE IS eae yd RETURN TO TEST ALL DRIVES 
N THE ’ORIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE ore 


IFIC DRIVE N 
TO BE TESTED, SEPARATED BY COMMAS & IN 
RETURN. 


¢ I UMBERS 

ERMINATED BY A CARRIAGE 
E.G. DRIVES TO BE TESTED: 1,2,4,6 

IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE xxOP, ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 

BUS ADDRESS 

THE REQUEST WILL BE: 
TYPE IN BUSS ADDRESS IF NOT 177440 

THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNT OLS SXQS-AKO7 DRIVE DIAGNOSTIC 
CZREJEO 
DRIVES TO BE TESTED: 1,3<CR> 


SEQ 0010 


ESREIE. 


UNIBUS oe” 


Pll 


DR_PRT 
-JAN-78 12:08 


4.6 PROGRAM 
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TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 

3 

DRIVE 1 

(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM Son ree Ar THE 


DEFAULT 


tH ABOV' 
NUMB 


ADDRESS (200) & WITH 2 DRIVES ON THE LI 
UNIBUS i whee! DRIVE DIAGNOSTIC 
CZR6EJEO 

a TEST DRIVES: 

1 

DRIVE O 


RRA YRIBEE CERTAL Non BBB 
DRIVE 1 

PRAYRIDGE SERIAL NO. 

END PASS #1 


WILL TEST DRIVES: 

i 

DRIVE O 

DRIVE 1 

END PASS # 2 
(ETC) 


RPP ache FER ORF ERMIN O° By ACT/APT /XXDP 


SEQ 0011 
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ee IMPORTANT: FOR VARIATIONS OF THE ABOVE at i ACT/APT 
eae CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 

eas 4.7 HALTING THE PROGRAM 

98 THE PROGRAM eRe A METHOD OF HALTING ITSELF SUCH THAT 
33 THE CARTRIDGE 7OR DRIVE IS NOT LEFT IN ON UNDETERMINED 
600 STATE; IE: HEADS UNLOADED OR INVALID FORMAT. 

ep TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 

604 IF HEADS ARE LOADED & FORMATTING IS VALID, 

60S THE PROGRAM WILL: 


eg , 8: Tyre Seu, au rep” 
ccflanie ss 52 AND/OR FORMATTING IS INVALID, 


PLEASE 


;: oF rs ta OADS HEADS. AND/OR FORMATS 
. ct sth s a 
5 


. Wee Te PR ba 


COCO ONKMorr o 
bb ee 
OO U CWO 


OR 
3S 


ABOVE sabe 94 poe LL, Be es at RUNNING IN DUMP 
UNNING IN CHAIN/AUTO 


iss BS AIPA CLARET FT obeae SLALOM SE 


ororory 

UW)! 
— 
z4 


: : ZuNP Pes IN’ To THE MO ROGRAM CAN BE 

631 THE TYPEOUTS WILL BE operon PENDING - PLEASE WAIT” 

eas & “PROGRAM ABORTING” 

bas 2. PROGRAM To FEST? WHERE TESTING WILL BEGIN MITA THe 1ST ORIVE AGAIN. 
Pas 5.0 DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 

30 s.1 GENERAL 

Py OPERATOR INTERVENTION TESTS 

ea THE FE Wee AnD Tisnrse ALL THE DRIVE INTERLOCKS, FRONT PANEL 

646 THE OPERATOR IS INSTRUCTED TO PERFORM A TEST 

647 AND TYPE A SPACE WHEN FINISHED. 


CZR6JEO UNIBUS RK& DR PRTZ 
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OPERATOR ANTERYENT ath TES 
ae A CONT 
NNING OF EACH TEST, A 


IF Tw, pRognan TERMINES I 
ACT T, OPERA INTERVEN 
BYPASSED UNLESS THE ’LOAD & 


a a BE INDIVIOUALLY 
ae .. ONLY AT_THE 
ED BY THE TYPEOUT. 


wDa- 
a 


THEY WIL BE Byrnsaeo ad D_IN ’*MONITOR MODE’ AS OPERATOR 
PHTERNEN ION MAY NOT BE FEASIBLE IN OVER-NITE 


TEST DESCRIPTIONS 


EEEKLEERE RRA RE ARERR RAR KAA AAALAARERLLERELALLALLARAA AERA LARK LES 


BASIC CONTROLLER TESTS, SIZING & SETUP 
PeeTTe er iii iti titi te ittitititiitit iii iii rieeeee rei rrrr seg g) 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 


cas Me 1 VERIFIES THAT ALL THE CONTROLLER REGISTERS 
1G Sea TY TO BE ACCESSED WILL 


Res ecu TIN T WITH. AN ERROR MES ANY 

ERROR IN IN" THIS. Peay Bay * TIN ABORTING ALL OTHER 
S AND JUMPING ND OF PASS’ 

TEST 2 SIZE THE BUSS 


My S Me IS ENTERED ONLY IF ’DRIVE 
Y RUNNING IN THE AUTO MODE 


SELECTION’ IS DEFAULTED 
OR A 200 START IN THE 


EVE Y 5DR cRFOn S THRU 7_IS ADDRESSED. 

CONT ROLL (CERR) S EXAMINED AND IF_NOT THE 

DRIVE W BL BE TE STED AS KO6. IF SET, THE PROGRAM WILL BYPASS 
HA ONLY A RESULT OF 


ree. OF 
ING SET; OR BOTH NED & DRA RESET IN- 
DICAT NG fhe 2 PORT IS ACCESSED. 


IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED AS 
AN RKO7. 


IF THE ERROR WAS 
1§ 


TEST 3. VERIFY OPERATOR DRIVE SELECTIONS 


THIS Bul¥s, 1S 5 eGenY opive ONLY abi DRIVE SELECTION Is NOT 
VERY ROMO 07 1S ADDRESSED 8 

OE TROLE OR (CERR) IS EXAMINED. IF NOT SET, THE 

PROGRAM BLE ASSUME THe Barve IS PRESENT AS AN RKOG 

IF CERR WAS SET. THAT ORIVE WILL BE BYPASSE 

ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH 


mn 
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7 NED & DRA (WRONG pont F_CERR A_RESULT OF 
5be NED ONLY. ie Rot EBCCIFIED INT THE 8, Heo INFOR TO 
706 VERIFY It but fo'p FIED. 
707 IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED 
708 AS AN RKO7. 
710 
git TEST 4% FIND NEXT DRIVE TO BE TESTED 
713 THIS TEST FI THE NEXT DRIVE PRESENT & PUTS THAT 
714 ADDRESS IN ’DRVAD’ & STMPY IS SET TO CDOT IF DRIVE 
71S “iat iS af 
716 OU T THE FOLLOWING TESTS, eo eat TESTED IS 
6 4 THE DRIVE WHOSE ADDRESS IS IN *DRVAD 
719 
geo TEST S PRINT DRIVE SERIAL NUMBER 
Zee THIS TEST READS & PRINTS THE DRIVE SERIAL # roo MSG A, WORD 11 
ges IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONL 
7eS 
eee TEST & SET VV WITH PACK COMMAND 
cS IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
530 TEST 7 UNLOAD DRIVE TO BE TESTED 
732 IS_TEST Lt RDS THE DRIV TESTED NEXT 
333 WAITS FOR VERIFIES ire Care FROM THE CORRECT DRIVE. 
735 ; 
736 HHH EE HE HE EE EE EE RRR RERE RRA ERE AA RREEA RARER RARERES 
737 OPERATOR INTERVENTION TESTS 
£38 REL REGLARR ARERR RREKRRREAR ER EREERERRA AAA ARERR AL AAAAAKKLKERRERES 
740 
741 
ous TEST 10 INTERLOCKS TESTS 
744 THIS VERI THAT THE DOOR & SAareige STATUS BITS 
74S ane OPERATING PROPERLY 1. tt MESSAGE AO & THAT THE REMOVAL 
746 CARTHS IGE C VOLUME VALID. 
oie ire T Ait ALL, RENAINING STATUS BITS OF 
749 THIS T ST AL avy CHECKS T' THAT’ THE SPINDLE corer. BE STARTED 
750 WHEN THe Doe N OR THE CARTRIDGE IS REMOVED. 
751 IT ALSO VERIFI BT Los S 4 VOLUME VALID RESETS SACK WHICH 
oes ASSERTS NON EXISTENT ORIVE IN RKCS2 
754 
a TEST 11 UNIT SELECT PLUG TEST 
757 out TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED 
758 L_ LOGIC RESETS ATTN & VOLUME VALID, THAT 


THE QUAL 
789 THE DRIVE DE-SELECTS & NON EX’STENT DRIVE ASSERTS. 


CZR&EJEO UNIBUS RK& DR _PRT3 MACY11 30A(10S2) 2@5-JAN-78 12:16 PAGE 15 SEQ 0015 
CZ2R6JE.P11 2S-JAN-78 12:08 


760 FURTHUR, THE eOPERATOR 1s afiSkeD To INSERT | any giUNBER OF 
761 UNIT SELECT PL THE R R WILL RE SPQ ND BY TYPING 

res THs GU FQ0e URBER Bs. oan “ead nateo 8 ANY TIME BY A CONTROL-C 
765 

766 \ TEST 12 PORT SELECTION TESTS 

768 THE OPERATOR I ASKED. To. guITCH TO THE WRONG PORT 

769 & THEN DESELEC 

720 IN BOTH CA N Eee Rt DRIVE SHOULD ASSERT IN RKCS2 

772 

773 

274 TEST 13 AC LOW DETECTION PART 1 

776 \ IMINARY AC i TEST i PERFORMED HERE WHILE HEADS ARE UNLOADED. 
778 a nhOT Be 1 TED: bine TEy § BONE IT REQUIRES 


ru = ate So eR Re Etats, 






783 
784 

785 . TEST 14 CHECK NXF LOGIC 

787 ct THIS TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 

788 ; AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 

730 . 

rad “TEST 15 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 

793 Ee THs S Tee IFTES ar seth 14S6 FOR RKO7) TRACK 2 CAN BE READ. 

794 ALS We BAD WHICH IS WRITTEN BY T 

795 - Eon tebe (BSE) W tL one STORED 

796 ; ‘ Tony aie "ee hur R TA Fie PRINTOUTS. 

237 . : ai Ee F NFO 

5 3 ‘s D tear NG AAT AL ’ we 

800 ie hws mae cate WILL BE BYPASSED. 

O1 ‘ =F HIS IS BONE m8 AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT 
03 THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 

805 

BOB TEST 16 WRITE. LOCK TEST 


aCTEncB Onse.the oeTYe LOck surtcn Tie BEEN ENAaLED. 9 
PROTECT TAKES 


WRIT 
SECTOR OBGUNDRTES MOHEN DOING CONTINUOUS WRITING ON” eve 0, HEAD O 


oS 


TEST 17 AC LOW DETECTION PART 2 


EccociteipnsiNcraanesicaeein tout alia ahaa hae ae 
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aut Se cb3e _BOUNDALES 6 ba" WHEN AC POWER IS LOST, THAT WR A ee 


ITIN 
ASEEIROMIE Sa ec DNASE ING AS RO CaSO 
DER ie rreieace" LHe BB 


TEST 20 END OF PROGRAM 
THIS 18 NOT 8 a one ee Our BUT A LINKAGE TO PERFORM ALL THE 
ABOVE estat XT DRIVE PRESENT 
a 2 > ES s ENTERED ONLY AFTER ALL DRIVES PRESENT 


DO NOT LOOP ON N THIS *TEST’. 


TEST 21 MULTIPLE DRIVE DETECTION TEST 


pa s fe T A PERFORMED ONLY ONE AT T aed al PASS 1 
YPASSED IF ONLY ONE DRIVE IS P 


THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 


B: Bc Reh Perkin RY Rehan On Ry SAME_UNIT SELECT 


ON ANY 2 DRIVES 
6 Veet 


Cc. oH “OPERATOR. THEN DepRE SSeS, Ed SPACE BAR TO CONTINUE THE TSS 


THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE 
BOTH SET & THAT THE DRIVE UNLOADS 


THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 


THE PROGRAM on NOT R NERS FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CA 


ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A 
Sh EAt N UP’ TEST TO PUT THOSE CYLINDERS BACK TO STANDARD 


ERROR REPORTING 


ERROR INTERPRETATION 


BND OYHER bate PERTAIN TN +8 THE ERROR ARE Iso Given 
MSG AKER RKB .ETC INDICATE THE 
MS TENTS Or HE BL OARESPONDING. REGiS ERS AY THE TIME OF 
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ERROR. 
Peele ered PROGRGM WHERE THE” ERR: ROR CALL 75.1 LOCATED.” THE 
AUSE RATIONS IS MADE 

cpr He fe sine B86 LOOR UP THE 
SHORT tN T mrces vas FIND MORE INFORMATION 
ABOUT T ERROR. A SINGLE FAULT WILL 
GIVE RI OR REPORT Te A LITTLE DELIBERATION 
AND C Fur xan aay TA GIVE N WILL BE CERTAINLY 
OF WHAT TS Us i ae ere D IN ne, TEST i GIVEN AT re sav 
BEGINNING. OF Sope VERY ies RUMBERS GIVEN WITH ERROR 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


ERROR PRINTOUT EXAMPLE: 


DEPRESS *RUN-STOP’ SWITCH TO ’RUN’ WHILE DOOR OPEN 
VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD 


DEPRESS SPACE BAR WHEN FINISHED 


SPINOLE ON SET IN RKMR2 
AFTER MANUALLY LOADING HEADS WITH DOOR OPEN 


ay opo010) 015700 


RKMR3_ RKER RKOS RKCS1 RKCS2 RKASOF 
As0393 100000 ooo000 140301 O40e00 000103 du4000 


MESSAGE AD ERROR 
AFTER MANUALLY LOADING HEADS WITH DOOR OPEN 


TEST NO. Fe 
000010 peae 
Ag Bo Al Bl Re Be B3 
100143 1 o000s43 000001 
050343 MY, ae 0017s 000001 
RKCS1 C RKER 


RKDS RKOC 
040200 000103 Bo4000 oooo0o 140301 000000 
EXPECTED & ACTUAL DATA FOR 
MESSAGE REGISTERS AQ, BO, Al 8 Bl. 


MESSAGES A2 Be & B3 WILL BE TYPED OUT ONLY AS REQUIRED 
YLIADER IFFERENCE/OFFSET, CYLINDER ADDRESS & 
HEAD oe OR INFORMATION IS A VARIABLE PARAMETER OF 


SEQ 0017 
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{ END OF DOCUMENT ] 
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167400 
000001 








. 
Ss 
7? 

* 


? 
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;##% PGM a or He 
-NLIST CND,MC,MD 


-LIST 

-ENABL ABS, een 

;DEFINE SYSMAC MACROS 

SSWR= 167400 ;OEF INE SWITCHES 15, at 13,11,10,9,8 
STN= 1 :SET FIRST TEST NO. TO’ 

BUS OK RK6 DR PRT3 


i COPY AP dee “tore. 
. O17 


( 
;S01GT IAL EQU 
;HMAYNARD, MASS 
{EPROGRAM BY GARY PAPAZIAN 


;% 
;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
j XPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


Serte OPERATIONAL SWITCH SETTINGS 


: 

i SWITCH USE 

:% 15 HALT ON ERROR 

;% 14 LOOP ON TEST 

ie 13 ABORT D Ive AFTER Rob ERRORS 
;a 11 SeOR BIT LYERATIONS 

i* 19 BELL ON ERROR 

3% 8 Looe BN FEBPR In swr<7:0> 


- SBTTL SUMMARY OF STARTING LOCATIONS 


200 DEFAULT PARAMETERS 
eed INPUT PARAMETERS 
240 ODT11 


CO CCC 2c 


SEQ 0019 


HOe2 
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CZR6JE.P11 25-JAN-78 12:08 BASIC DEFINITIONS 
aA .SBTTL BASIC DEFINITIONS 
879 means jeINITIAL on OF THE STACK POINTER *** 1100 *#% 
11 
RROR FINITION OF ERROR CALL 

de “Haut gay ERR PE +s BATE BEF INET HON OF SCOPE CALL 
984 *MISCELLANEOUS DEFINITION 

: rs i te e Bee sem 

1 35 
388 000200 CRLF = ™ HE TURN-LINE FEED 
389 177776 "Fou = pe 27 & tt BROGESSOR STATUS 
4 KLMT= 177774 33 IM TER 

332 aaa oe PI IRG= 177708 +t BRoghan | PROGRAR INTERRUPT REQUEST REGISTER 
aad 177570 ' DBT SP= 155250 + HARDWARE DISPLAY REGISTER 
3 ,¥GENERAL PURPOSE REGISTER DEFINIT 

39 oo0000 Ro= %0 R PRE Ane AONE TER 

998 000001 Ri= %1 HH RAL TER 
ac 5 an tt ENERAC TER 
1bot oo0004 Riz ttGENERAL REGISTER 
aoe ooooos RS= “5 He: RAL REGISTER 
1003 oo0006 Rb= %b 33 RAL REGISTER 
iboe are a 4 st RBOTRTER — 
1006 000007 = % HE CSRAM AA URTER 
1008 -¥PRIORITY LEVEL DEFINITIONS 
1009 oo0000 PRO= ;;PRIORITY LEVEL O 
1010 000040 PRi= ::PR TY LEVEL 
1014 990109 PR2e= 10 i i PR Ty ; VEL 
io1é 14 PR3= 14 He Y CEVEL 
1013 000200 PR4= 200 ;:PRIORITY LEVEL 4 
He ae ree: 508 HBSRITY LEVEE 
igie Bo 40 . PR7= 0 PRT ORT TY LEVEL 7 
1018 a8 TH RE ISTER" SWITCH DEFINITIONS 
101 1000 Wi 
1020 04000 Wi4= 4000 
1021 020000 SWi3= 2000 
1022 010000 SWi2= 10000 
1023 004000 SWil= 4000 
ie? spree ue: i008 

= 

1bSe Bo04 aioe: 400 
1027 000200 SwO7= 200 
1028 000100 SwOb 100 
1029 000040 Swos= 
1030 000020 SwO4u= 2 
i031 00010 Swoz= 1 
1032 00504 SwO2= 4 


SES 0021 


102 
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FINITIONS 


oSe2 
CD 


MACY11 30A(1 
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s* 
ed 
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ee 
s* 
7 

a 
sf 


DEFINITIONS (BITOO TO BIT1S) 


S 

= 

& 

> 

TER MT INN! & 

Cor OonTMU-O A a wl ra 

BAAARGAGR Gacacaanaa & 
gensezonas Cssesess oo, SSS8S608s8 > 9 
aa 3 - Soeseessscoao etter OO TT TT TT 
Cu- Be UF USF UAT UAT UA OOONOINOMMaD : 7 UUM BDU 
ONnoOonnnnno oO 
FPP oOPrPo>>> ZTUUUNHUNKNKHKHNHHKHKHNKHHKHKNSS>S>>>>>>> HMOOWOOOOOW tI ils 
TL LE a te hg es ee SOE RS Bes ON DAM bad bd ad Dd dd ay WSs 
apaaaaaaaaasa on han eam eae hee en) [=] |=] aaaaaaaaaa 4 - ‘ 7 ovue 
OogGoocessSs | — ooooeoo ae >> 
pe {PULPYT YTV PY PY PY YY IVY YY et len lanlonlonlonlontantontantantantantanl Vitti tt) evi ey) evi el PY Pv PY pdt pers tt =axar 
WU += + + = ew we ww “MOODMOMOODMOMMMMMMMMM- +++ +s +s ss ete OWwr---O 
3 ssssssssserscass SQ7ZTREREBTS 
oo RRRmoOo7 y= S8ss SSsesssssssu 
33 Sracasasssssess ssssesssssse 
oo ot SU tstatatatat=t=t=tstatetstsy statat=tst=t=t=tstetsts: 


ti a OSS PST ee ee POA DOOD ED ORR ee Ce ee Bata it co 
MMMM DoDD DDODOODO OOO LOLA LN 0.0 raf ata tate tate tetet et ete K.RKRROOMWDOOOOO 
OOOOOOOOVOHOOOHOOOHHOOOOSOOOSOOO SOO SSG009000000000000000000 
Summ eee einem oem heme eee fee erm Rene ene ere ere Rare ere ee hee Derm Deo ee on hee Doe Dem Dem Dee Pee ee ee Poe ee ee ee ee ee ee ee ee ee eee eer) 


oOo 


el ed ed ee ee ee ee ee ee ee eee eee ay 
oon 


O0000000000 
om ty 
0 Mmm 


ALO Goo Loo 


WWWWWMMTMN NNN eee eee 
apt at tte tee tt ity tet Wats NOW TwM-ODa Ve 
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ll 25-JAN-78 12:08 RKO& CONTROLLER REGISTER DEFINITION 
; SBASE=177440 
000 RKCS1= £ ;CONTROL AND Stars REGISTER 1 
000 RKWC= ‘WORD COUNT REGISTER 
000004 RKBA= 4 ; BUS SS REGISTER 
000006 RKDA= 6 ; 51 D TRACK SECTOR REGISTER 
000010 RKCS2= 10 ‘CONTROL AND STATUS REGISTER 2 
oole RKDS= ile iDR TATUS REGISTER 
014 RKER= 14 : GISTER 
000016 RKASOF= 16 i ATTENT ON AND OFFSET REGISTER 
000020 RKDC= 20 i DES cyt NDER REGISTER 
O24 RKDB= es :DA F 
000026 RKMRI= 26 j MAINT NANE g st R 
034 RKMR2= 34 : MATNTENANC! TER 2 (MESSAGE LINE A) 
000036 RKMR3= 36 !MAINTENANCE REGISTER 3 (MESSAGE LINE 8) 
000030 RKECPS= 30 ECC P TTION INFORMATION 
000032 RKECPT= 32 :ECC PATTERN INFORMATION 
.SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
; DRIVE COMMANDS 
000001 SELORV= 1 ;SELECT DRIVE (GET STATUS) 
000003 PACK= 3 PACK ACKNOWLEDGE 
oo0005 CLEAR= § DRI E 
000007 =? ; UNLOAD 
000011 ae ll : START SPINDLE 
000013 RECAL= 13 ; RECALL TE 
0015 OFFSET= 15 : OFF 
000017 SEEK= 17 : SEEK 
000021 RODATA= 21 :Ri AD DATA 
000023 WRDATA= 23 WRI E bara 
go002s RDHEAD= 2s j READ ADER 
002 WRHEAD= g ; 1 é HEADER AND DATA 
000031 WRTICHK= 31 ‘WRITE CHECK 
000001 GO= TO :GO BIT 
000100 IE= BITE HERTERAUPrT E E 
eet Bale=  BtT8 60d BEIT 1 
= . 
001000 BAI7= Bits Bue 2 i 1 
002000 CDT= BIT10 5 CONT TYPE (O=RKO6, 1=RKO7) 
004000 €TO= Til : CONT R TIMEOUT 
010000 CFMT= BIT1e + CONT R IVE FORMAT (Q=B2 SECTOR, 1=20 SECTOR) 
020000 DCPAR= BITI3 j SERCON ITY E OR DETECTED BY CONTROLLER 
040000 2 BIT14 :DRI INTERRUP 
100000 CERR= BITI5 CONT OLLE ERROR 
100000 CCLR= BIT1 ‘CONTROLLER CLEAR 
.SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
000007 DRVMSK= 7 ;MASK FOR DRIVE SELECTION CODE 
000010 RLS= ~—«BIT3 sDESELECT OR RELEAS ORI VE IN BITS 0-2 
000020 BAl=  ®BIT4 :BUS ADDRESS INCREMENT INHIBIT 
000040 SCLR= BITS :SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES 


-— ———— _ _——- - ee —_ —_ --- ---—- C—O 


OOO EE EEO 


a0 


NN 
re 


hee 
mm 


UII ££ Ee 


wut 


ee ae ee ee be ee he ee ee ee ee ee ee he ee 
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ee he ee ae ee be ae pe be ee he ee he he he he he pe pe ee 
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T MACYI1 3QR(1052) 25-JAN-78 12:16, PAGE 23 SEQ 0023 
CEBU eke ane 7B 12:08 11 SRONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 
000100 IR= BI7S ; INPUT_READY 
= 17 ‘OUTPUT READY 
uated Ofe= Bite SUNIT FIELD ERROR 
1 Be: IN, i uchrant Veet" 
004000 NEM= BIT11 foe NT MEMORY 
ps oe Raps Eek Pate 
WCE= IT14 Ck RROR 
reat bres «6s Tie iBT TE STE at 
SBTTL ERROR REGISTER BIT oar snerion (RKER: 14) 
ILF= ITO EGAL FUNCTION CODE 
peonas Mis Birt A TION 
04 NXF= BIT RORNEXPCUTABLE FUNCTION 
000010 RPAR= B13 iD DETECTED SERCON PARITY ERROR 
000020 MTE= BIT4 Be TERROR 
o00040 DTYE= BITS {DRIVE TYPE ERROR 
100 ECH= BITb tEC 
ay Avac=  BtTa tAERDER VRC. ERROR 
Rare O&= B1T9 CYL CINDER RTE OBRESS OVERFLOW ERROR 
000 IDRE= BI TIO : INV DISK ADDRESS ERROR: HEAD/CYL 
004000 WLE= IT1l {WRITE LOCK ERR 
D20000 Piz BITS + OPERAT TERING. ERFOR INCOMPLETE 
040000 UNS= BIT14 i ORIVE. UNSAFE 


CZR6JEO UNIBUS RK6 DR PRT3 MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 24 SEQ 0024 
CZR6JE.P11 25-JAN-78 12:08 ERROR REGISTER BIT DEFINITION (RKER: 14) 
1173 100000 DCK=  &BITIS ;DATA CHECK 
1175 .SBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 
1172 000001 DRA=  BITO ; ORIVE EF AVAILABLE. (CONTROLLER IS SET IF 
1179 oo00004 OFST= BIT2 DRIVE OFFSET 
1180 OO ACLO= E 3 8G Low 
1181 OC CLO= Ty :DC_L 
il ae ROT= BITS :DRIVE OFF TRACK 
1183 900100 Ws BITE ; VOLUME VAL ID 
oie 4 . 
ti8e Boast proy= BH Ta H i ie Yer (O=RKO6, 1=RKO7) 
ite? Prps BTiS i Bosy ITI IN PROGRESS 
= 
1186 g pecs BE TIa iBRive ONING Th 
1188 100000 SVAL=  ®BITIS :STATUS VALID 
1131 .SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 
1193 000017 MESMSK= 17 ;MESSAGE MASK 
1194 go0920 PAT= pis iF N = ON SERCON MESSAGE LINES 
1ige Bido p = te ifn TOR PULSE 
1137 000200 MIND= ®BI1T7 ;MA 
t 4 ie 
1138 10 bK= 118 ina D READ DATA 
1200 = BITio in u eee rence DATA 
1201 004000 PCA= ITi1 
1505 neaiity Eecw iis Bete READ OR WRITTEN 
= 
ian £383 ceria Bitte cere 
: Os 100000 RDGATE= BITIS TE 
1207 .SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE A (RKMR2:34) 
1209 p0004 A= BIT IVE AVAILABLE 
1510 BOOT OB B- Ws BITE Voc Une val ID 
lell no0200 DRDY= BIT ‘DRIVE READY 
1212 000400 T= Bis Behe TYPE (O=RKO6, 1=RKO7) 
eee i= +4 
Be Bias ai Be ee 
+ 4 o 
isi? yale B- eB N= BiTts SPINDLE 
1217 020000 °PIP= BITI3 ;POSITIONING IN PROGRESS 
1218 040000 D:pDSc= BITI4 ‘DRIVE STATUS CHANGE 
teed .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A (RKMR2:34) 
leee D.SSP= BITY i SERVO SIG PRESENT 
lee 000040 [HOHM= BITS 
1824 000100 * BRHM= 116 BRU SAEs 
lees 000200 [DOOR= BIT 0 
leeb 00400 D:CART= BITS iCARTRAGE TNTERE DOCK 
i227 001000 D:SPOK= BITS ; OK 
1228 002000 D:FWD= BITIC :FO 


TT 
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CZREJE.P11 2S-JAN-78 12:08 DEFINITION OF DRIVE STATUS BYTE x aaa A (RKMR2: 34) 


a 


1229 004 D.REV= BIT11 
1230 010000 D.LOAD= B ;HERDS LOROING, 
000 ” s 

is ecietetee B: D= Bit 113 iREABS UNCOABING 

1838 .SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE B (RKMR3:36) 
i = BIT NVALID DISK ADDRESS ERROR: HEAD/CYL 

1538 888100 B- ROAE= BT Cou 

1636 unten a 113 Gaive ane FUNCTION CODE 
. = 

1240 gta B Bars 118 IDRIVE DETECTED. SERCON PARITY ERROR 

1241 002000 D.SKI= BITIO :SEEK INCOMPL 

i343 B1G908 Beets Bitte slip oe 

1B44 ate “Bones BIT : TRACK 

les 040000 D.UNS= BIT14 ;R/W UNSAFE 

156 .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3:36) 

1 4g 000020 D.SECT= BIT SECTOR ERR 

1250 000040 D:WCUR= BITS WRITE ed ND NO WRITE GATE 

{524 eee B- HATE BTS ae 

1253 as - MHD Tg AD SELECT 

1254 1000 Be R= i ae 

1255 000 ‘TIB= BITIO iT ER 

1529 BT 0000 B-NMov= BITIE TION 

1258 020000 B-LinD= BtTtS She, r SEEK 

1655 040000 7SUNS= BIT14 

1e61 SBTTL COMMON MASKS AND OTHER site: MESSAGE A (RKMR2:34) 

le63 0007 M.ORV= 7 ALL BYTES 

18e4 Tae HE = 77770 i DRIVE ORF ALG YTE 11 

1266 .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B ene 2 

1268 000003 M.ID= 3 iByTE ID, ALL BYTES 

1269 0400 M.ALGN= BIT14 IGN SIGN, BYT Eo. 

1270 0007 M.SECT= 760 :SECTOR COUNT, BYT 

1e71 007000 M.HEAD= 7000 tHEAD DECODE il! 

1272 100000 M.PAR= BITIS :PARITY, MESS vee ALL BYTES 


N02 
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CZR6JE.P11 25-JAN-78 12:08 COMMON MASKS AND OTHER BITS: MESSAGE 8B (RKMR3:36) 

1273 

igri .SBTTL TRAP CATCHER ly 

1276 oo00000 .20 

1277 5 #ALL SED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 

1278 ;#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

: 73 sonst j*LOCATION 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

1281 000174 905009 DISPREG: .WORD O ;;SOFTWARE DISPLAY REGISTER 

1282 000176 0000 SHREG: WORD 0 ::SOFTWARE SWITCH REGISTER 

1283 -SBTTL STARTING ADDRESS(ES) 

lees o00200 900137 010012 IME 0 QaSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 

1286 o00220 000137 010002 IMP PARSRT ; INPUT ALL PARAMETERS & START TESTING 

1288 000240 .=240 

1289 000240 000137 oss4se IMP 0.0DT ;ENTER ODT11 | 

1691 .SBTTL ACT11 HOOKS 

1293 ? a3 RKKRKRAKRRRRLRRRRRA RELA RAR SRA RK AAA RRARAAEKRERRE KKK ARAAKKRAAERKES 

1294 :HOOKS REQUIRED BY ACTI1 

1295 oo00244 §SVPC=. ;SAVE PC 

1296 000046 246 

1 7 oo000% geudze SEN ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 

1299 o000S2 120000 “WORD 120000 ;;2)SET LOC.S2 TO 120000 

1300 000244 =$SVPC :; RESTORE PC 

1301 001600 , =i 

1308 .SBTTL APT PARAMETER BLOCK 

1304 a3 REKKAAKKRERARRARRRERRRRAARRRERREERE RARER A RRR RRR AR RARRKRAAARKRES e 

1305 :SET LOCATIONS 24 

1306 * y j He Me He EME HE He HE HEE HE He HH a EH a HHH HE RE RARER EEE 

1307 001000 .$X=. 3;;SAVE CURRENT LOGAT 

1308 000024 * =24 +:S5ET POWER FAIL TO POINT TO START OF PROGRAM 

1309 000024 9O00200 2 HE TART UP 

1310 000044 _=44 3;POINT TO APT IND RECT ADDRESS PNTR. 

1311 o0004%4 9401000 SAPTHOR ;:POINT TO APT AeRoE OCK 

1312 oo .=.$X  :: T LOCATION COUN 

1313 Pr iitiiiiiiiititi tit titiiititititiiiiiiiirieerier gree oe) 

1314 ‘SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 

1315 : INTERFACE SPEC. 

1317 001000 SAF THD: 

1318 001000 oo0000 HIBTS: .WORD ;;TWO_HIGH BITS OF 18 BIT MAILBOX ADDR. 

1319 001002 O01¢ 0 SHBADR: - WORD MAIL j ADDRESS OF APT MAILBOX (BITS 0-15) 

1320 001004 04S4 TSTM: -WO 00. :;RUN TIM OF LONGEST TEST 

1321 0010) 1130 gpa T™: - WORD : ::RUN TIME IN SECS. ist PASS ON 1 UNI (QUICK VERIFY) 

13 00101 1130 UNITM: .WOR f ‘ADDITIONAL RUN TIME (SECS) A PASS FOR EACH ADDITIONAL UNIT 

1323 001012 000052 “WORD SETEND-SMAIL72 ;;LENGTH MAILBOX-E TABLE (WORDS) 

{358 IST MD 

1327 oe 

1328 ; 


om 
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MACY11 30A(10S2) 
. APT PRRAMETER BLOCK 


;USE LOOP X TO OMIT SUBCLR 
"MACRO LOOP A 
SCOP1 


A2, B2 & B3 WITH STANDARD 
LEAR OR ANY IMPLIED SEEKS 


aSTACK, SP ;RESTORE STK PTR 

- IF 8 a 

JSR PC, SUBCLR 

ERROR e24 ;CERR AFTER SCLR 
- ENDC 
-ENDM LOOP 
i THIS MACRO FILLS EXPECTED MSG AO, BO, Al, Bl, 
;BITS SEE A=D.DSC AFTER ATTN OR O AFTER DRIVE'C 
;NOTE: A CAN BE ANY BIT COMBINATION DESIRED. 


*MACRO F.EAB A 


MOV #<A!'D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
CLR E.B0 -EXPECTED MSG BO 
MOV #<D.SPOK!D.CART!0.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
MOV #1,€.B1 ;MSG ID FOR EXPECTED’MSG B1 
CLR E. j EXPECTED SG Re : 
MOV #2,£.B2 *MSG ID FOR EXPECTED MSG B2 
MOV #3,£.B3 :MSG ID FOR EXPECTED MSG B3 
.ENDM F.EAB 
!THIS MACRO ASSUMES DRIVE MSG AD, BO, Al, Bl WILL ALWAYS BE TESTED 
USE oF FOR MSG AC, BO, Al, B81 ERROR NUMBERS RESP. 
USE G=T:A2 TO AD mst & PUT INFO INTO *CYLDIF’ 
: H=T.Be TO G PUT INFO INTO ’CYLADD’ 
: I=T.B3 TO READ MSG BS & PUT INFO INTO ’SECTOR’ & ’HEADA’ 


*MACRO CHECK 


A,C,D,E,F,G,H,I 

JSR PC, CHKMSG 

-WORD G!HIT 

ERROR A 

ERROR C 

ERROR OD 

ERROR E 
-ENDM CHECK 
FASCYL DIFF/OFFSET ERROR & 
*B=CYL ADD R ® 
!C=<ERROR DESCRIPTION» 
"MACRO CWD2 A,B,C, 2D, 7E 

MOV #2, RKMR1(RS) 


; USE F=<ERROR DESCRIPTION> 


;CHECK MSGS AD 
?& MSGS SPECIFIED HERE 
?MSG OR 


:MSG Bl ERROR 


;SELECT WD 2 


. 


SEQ 0027 
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1385 ISR PC,GSTAT 
1386 TST CYLDIF 
i io 
1383 D: ST CYLADD 
1394 . BE RoR 
1393 -ENDM CWL2 
1395 .MACRO DRCLR 7A 
1397 MOV #CCLR, RKCS1(R5) 
1398 MOV IT’ RKCS2(RS) 
1399 MOV #CLEAR, HCS1 
1400 JSR DOCAD 
1401 ERROR 1 
1402 ISR PC, TSTATN 
1403 BR A 
1408 . ERROR 154 
1406 : 
1407 .ENDM ODRCLR 
1409 
1410 .MACRO CALIB 7A 
1411 MOV #CCLR, RKCS1(R5) 
Hie MOV SUNIT RKCSeCRS) 
141 MOV #RECAL, HCS1 
1414 JSR C, DOCMD 
1415 ERROR 124 
1417 MOV #1, RKMR1CRS) 
1418 JSR Bare TA 
141 BIT #0: RTZ, HMR2 
1420 BNE A 
1421 ERROR e14 
1422 A: MOV 10, TEMP2 
1423 JSR PC, FATTI 
14e4 FRROR 5s 
tise me 
14e7 .ENDM CALIB 
1429 
1430 ; 
1431 : A=WRHEAD/<CFMT! WRHEAD> 
1435 : USE WRHDR <A>, X 
1434 "MACRO WRHDR A,C,?D 
1436 MOV #<A> HCS1 
13s Eifion BpapaTere 
1439 ISR PC, GSTAT 
1440 BIT #CERR,HCS1 


CO3 
MACY11 30R(1052)_—25-JBN-7B 12:16 PAGE 28 


{RO ROY AFTER WRITE HE 
IGET FRESH STATUS 


SEQ 0028 


;SEE IF MSG A2=0 


HRBbo’Rdr cLearen c 
SEE IF MSG Be=0 


;BR IF YES 
;MSG Be NOT CLEARED C 


; ORIVES 

;D0 DRIVE CLEAR CMD 
;NO RDY AFTER DRIVE 
; TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


& GET CONTR RDY 
CLEAR CMD 


;D0 RECAL CMD & GET CONTR RDY 
;RDY NOT SET AFTER RECAL CMD 


;SELECT WORD 1 


;RTZ NOT SET DURING RECAL CMD 
;SETUP TIMEOUT 


;FIND_ATTN 
;NO ATTN AFTER RECAL CMD 


TO OMIT CHECKING AO, BO, Al, Bl 


T CONTR RDY 
ER CMD 


Shes Fate po3 
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ESROTEO, UN TBUS Eke RRB 12:08 0A ORE METER Block Goes 

1441 BEQ D 

Lave . ERROR 201 ;CERR AFTER WRITE HEADER CMD 

1444 _IF B c 

144S EAB =O 

1446 CHECK 215,216,217,220,<AFTER WRITE HEADER CMD>,0,0,0 

1447 . ENDC 

1448 

1449 .ENOM WRHOR 

1481 

14 : A=RDHEAD/<CFMT! RDHEAD> 

1463 ?USE RDHDR <A>,X TO OMIT CHECKING AO, BO, Al, Bl 

1455 "MACRO RDHOR A,C,?D,7E 

1457 MOV #RHTAB, RO 

tue9 Bo a ATA X FOR & GET CONTR RDY 

1de0 2RRor "51 iRS RAY AFT R ReGp FeSber oD 

1461 BIT #CERR,HCS1 

1462 BEQ D 

1463 ERROR 174 ;CERR AFTER READ HEADER CMD 

1464 TYPE MSG26 :ABORTING DATA TESTS TO DO TIMING TESTS 

14B5 MP TIMING 

1467 D: MOV RKDB(RS),(RO)+ ;1°ST WORD FROM SILO TO RHTAB 

1468 MOV RKDB(RS); (RO)+ :8°ND WORD 

146 MOV RKDB(R5)°(RO)+ $3’RD WORD 

1470 

1471 

1472 BIT #DLT,RKCS2(RS) 

1473 BEQ 

1474 JSR PC, GSTAT 

1425 . ROR 173 ;DLT AFTER READ HEADER CMD 

1477 IF B Cc 

1478 NOP 

1479 . ENDC 

1480 

1481 .ENDM  RDHOR 

1482 

1483 

1484 .MACRO HDCHK3 7A 

1485 

1589 ROHOR BONER tocyL HECK WORD O ONLY, CYL# 

138% So A : SR Bone : 

1489 ‘ ERROR 51 :WRONG CYL# ON HEADER 

iyae — HDCHK3 

his : 

1Ngs : A=TOCYL/FRCYL , B=HEAD#, C = O FOR 22 SECTOR, 1 FOR 20 SECTOR 
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MACY11 30A(1052) 
2S-JAN-78 12:08 APT 


-MACRO HDTBL 


. ENDM 


i QUICK SEEK. 
"MACRO QKSEEK 


A: 


-ENDM QKSEEK 


C=ADDR TO JMP 


-MACRO WDATA 


fae 
-_ 


DA4ow 
DBuM- 


Dorn 
2iz 
muvVoO 


2S-JAN-78 
PARAMETER BLOCK 


; R=WROATAZ<CEMT 


=ADDR TO JMP 
se: I BLANK WILL 
!E: IF NON BLANK WILL OM 


A,B,C 
A, CALADC 


86, 
aC, FORMAT 
PC, FHDTAB 


ENTER WITH CYL# 


2A 
#SEEK,HCS1 
PC, DOCMD 
131 
rEopRP 
132 
BCERR, HCS1 
210 


TEMP1 
te 


BYPAS 
HECK 


12:16 PAGE 30 


IN RKDC 


;00 SEEK CMD & GET CONTR READY 
;NO RDY AFTER SEEK CMD 


; SETUP {recur 
; T 


;F IND 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


7 


WRDATO? 
O ATTEMPT TO WRITE ON ANOTHER SECTOR 
YPASS TEST 


& B1_AT THE END OF WRITING 


BO, Al 
IT’ CHECKING AO THRU BI 


A,C,D,E, 9F, 7G, 2H, 71 


#<A>, HCS1 
PC, DATCMD 


C,GSTAT 
acERR, HCS1 
#BSE, HER 
PC, TRUERR 


SECTOR 
gecTon, 010. 


;D0 TA X EgR CMD & GET CONTR RDY 
;NO Y ae WRITE DATA CMD 
;GET FRESH STATUS 


;BR IF NO ERRORS 
;SEE_IF BAD SECTOR FLAG 
BR IF NO 


FEL SEE i a LISTED IN BSE TABLE 
;RETURN HE NO 


;RETURN HERE IF YES 
;ARE 10 CONSEC. SECTORS BAD 
;BR IF NO 


SEQ 0030 
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1553 ERROR 40 ;ABORTING TEST DETECTED 10 BAD SECTORS 

1S54 IMP D :BYPASS TEST 

1556 F: MOV #CCLR,RKCSI(RS) ;TRY ANOTHER SECTOR 

Hee sill 

1559 G ERROR 12 ;CERR WITH WRITE DATA CMD 

1560 F.EAB O 

1561 CHECK 52 23 53,25,<AFTER WRITE DATA CMD> T.Ae T.82,0 

1562 YPE mSG7e sABORTING BALANCE OF TESTS - 

1563 IMP $eoP 

1564 4: ERROR 47 ;BAD SECTOR NOT LISTED IN TABLE 

1566 IF 2 a 

1567 .£EAaB OO 

1568 CHECK 52,23,53,25,<AFTER WRITE DATA CMD>,T.A2,T.B82,0 

1569 . ENDC 

1570 -ENDM WDATA 

1571 

1572 

1573 ; 

1574 : ASRDDATA/ <CFMT! RDDATA> 

1875 :USE RDATA <A>,X TO OMIT CKWD12 

1577 . 

1878 .MACRO RDATA A,C, 7D, 7E, ?F, 7G, 7H 

1580 MOV #<A> HCS1 

15e1 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 

1582 ERROR 1 :NO_RDY AFTER READ DATA CMD 

1583 ISR PC, GSTAT :GET FRESH STATUS 

1384 BIT #CERR,HCS1 

1586 44 #BSE, HER ;SEE IF BAD SECTOR 

1588 ERROR 50 ;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 

1590 D: TYPE MSG72 ;ABORTING BALANCE OF TESTS 

1591 IMP $e0P 

1533 E I HOCK, HER ;SEE IF DATA CHECK ERROR 

1595 ERROR 21 ;DATA CHECK ERROR AFTER READ CMD (ECC) 

1538 F: ERROR 14 ;CERR AFTER READ DATA CMD. 

1600 H F.EAB 

1601 CHECK 54, 26,56, 30, ‘AFTER READ DATA CMD>,T.A2,T.B2,0 

1602 BR 

1603 

1604 G: 

1605 IF B c 

16 F.EAB O 

i60 CHECK §54,26,56,30,<AFTER READ DATA CMD>,T.A2,T.B2,0 

1608 . ENDC 


SEQ 0031 


a 
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APT PARAMETER 


BLOCK 


— 
fw 


-ENDM RDATA 


air pay caper 
ee Tear 3571560139 FOR ERROR MSG USED IN ’SBOUND’ ROUTINE 
;USE WRCHK <A>,C,X TO OMIT CKWD12 


-MACRO WRCHK A,C,D,E, °F 


MOV #<A>,HCSl 2 
JSR PC, DATCMD ;D0 DATA xX FOR CMD 8& GET CONTR RDY 
ERROR 15 'NO_RDY AFTER WRITE CHECK CMD 
ISR PC, GSTAT :GET FRESH STATUS 
BIT aCERR, HCS1 
44 #WCE , HCS2 ;SEE IF WRITE CHECK ERROR 
MOV RKDB(RS),WD1 ;ACTUAL_ WORD FOR PRINTOUT 
ERROR C :WCE AFTER WRITE CMD 
BR F 
E: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
CHECK 2, 31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.82,0 
TYPE mSG72 ;ABORTING BALANCE OF TESTS 
MP ENORV 
Fs 
IF B D 
F.caB OO 
on CHECK §57,31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.B2,0 
“ENDM  WRCHK 


MACRO TO TEST THAT WRITE CHECK OCCURRED AT SECTOR BOUNDRY 
EL 13) Ee ene HOTEL gy 2°" 
:C=JUMP ADDR TO REBEAT TEST 


MACRO SBOUND A,B,C, 7D, 7E, °F, 7G, 7H, 71, 7J, K 


R PC, SUBCLR 
eR e4 ;CERR AFTER SCLR 


TST STMP2 ;SEE IF TRK/SECTOR 0 
$2 Srwe,wioes EECA HRA TEMPETGR™GER TOOK PLACE 
K : : BEAT, NO OLb DATA TO CHECK AGAINST 


Bie ' edeegmtede BR IF WRITING 1’ N Wh CURRED 
HOV BOATAL , RKBACRS) ifr Fin 0° Nive att R SHOULD HAVE ALL 1°S 
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1 

i : K: JIMP Cc 

1 D: MOV soar Rkesecey ;WRITING 1'S:WLE SECTOR SHOULD HAVE ALL O'S 
1669 E: BIS cse(R Re) 

1670 MOV 

1671 MOV * ARDACRS) ;REFRESH RKDA 

167¢ mov srrest ON : EXPECTED WORD FOR TRUERR TYPEOUT 

1PS3 CHK WRT CHK AX 

1675 NOP 

1676 

1677 

1678 cue TMP2, #400 ; SEE iF witht AT TRK 1, SECTOR O 

1679 NE ; RF 9 

igg6 HOV 821. , RKDACRS) : SECTOR BEFORE WRL IS TRK O, SEC 21 
168¢ F: CMP TMP2, #1000 BEE F witht AT TRK 2,SECTOR 0 

1684 Rov #425, RKDACRS) ET se SECTOR BEFORE WRL IS TRK 1, SEC 21 
1686 

1687 G: DEC mee ;GET SECTOR BEFORE WRL 

1688 MOV THe RKDACRS) 

1689 H MOV sore wt apis ;FOR ERROR PRINTOUT 

1690 BIT TO, $T 

1691 ;BR_IF WRITING 1’°S WHEN WLE OCCURRED 
1692 MOV toATAO, ,RKBACRS) ;WRITING O’S:WLE SECTOR -1 SHOULD HAVE ALL O'S 
1694 

1695 I: MOV sBal masa ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 
1638 J: BIS Cc che) 

1698 MOV SRcERiAS) ;EXPECTED WORD FOR TRUERR TYPEOUT 

169 MOV OCYL, RKDE(RS) 

1700 WRCHK WRTCHK,B,X 

13 2 ENDM SBOUND 

1385 : 

1704 ; 

1705 :QUICK START SPINDLE 

1707 "MACRO QKSRT 7A 

1208 JSR PC, SUBCLR 

1210 ERROR 24’ ;CERR AFTER SCLR 

1712 BIT #D. SPIN, HMR2 ;SEE IF SPINDLE ALREADY ON 

1713 BNE A :BR IF YES 

1744 YPE ,MSG29 :PLEASE WAIT, HEADS BEING LOADED 

1716 MOV BSRTSPL HCS1 

171 JSR ocmd ;D0 START SPINDLE CMD 8 GET CONTR RDY 
1718 ERROR 4 ot :CONTR RDY NOT SET AFTER CMD 

1720 MOV T100, TEMP2 


, 


Nr 
rrr Gat 


er 
wre Mmm 


NNNNNNNNNNNNNNNNN SY 


EG GOOIVRM Le ODo ere 


SELLELCLCLCGC£ 
oOnoul 


WISEEEEEEEL LG 
re) 


2 02 0s ae oa ae en bn sn pe ee ese Pe Pees Be enw fs Pn fn ne as Sa as es He ss es nw es Ps He Pw Ow nw Ps Pe ne Pw aw ee pn 
ovutovutatutotet 
Wwh--OwW th lll at 


NNN 
Cron 


03 


0 UNIBUS RK& DR PRT3 MACY11 30Q(10S2) 2S5-JAN-78 12:16 PAGE 34 SEQ 0024 
Pll 25-JAN-78 12:08 APT PARAMETER BLOCK 
JSR PC,FATTI :FIND ATTN 
ERROR 144 !NO ATTN AFTER CMD 
. CLR UNLD 
‘ .ENDM QKSRT 


‘ ROUTINE TO ISSUE PACK COMMAND 
"MACRO QKPACK 7A 
MOV 


aCcLR, RKCS1(RS) 
MOV UNIT; RKCS2(RS) ;DRIVE # 

MOV #PACK’HCS1 

JSR PC, DOCMD ;DO0 PACK CMD & GET CONTR RDY 

ERROR 116 :CONTR NOT RDY 

BIT #0. WW, HMRE 
. ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
.ENDM  QKPACK 
QUICK UNLOAD 
"MACRO @KUNLD 

PC, SUBCLR 
2Ror 24 ;CERR AFTER SCLR 


MOV #UNLOAD, HCS1 
R Pc, Docmd ;00 UNL CMD & GET CONTR READY 
E ROR ? ;NO RDY AFTER UNLD CMD 


SR C, TSTATN 
ERROR 20 ;NO ATTN AFTER UNLOAD CMD 
-ENDM @KUNLD 


-NLIST MD 
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1764 .SBTTL COMMON TAGS 
1eP +s KKLKRKKKRKREAKRARAAARAAARE FS RHKAAHKRAKRAKERAAARARAKRAAAERAKRAARRARARAKRKLREE 
1767 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
1768 !*USED IN THE PROGRAM. 
1770 001100 .2=1100 
iff et SCMTAG: ‘ ;;START OF COMMON TAGS 
1773 001102 TSTNM: . Re 0 ;;CONTA T obte Tr NUMBER 
1774 Bort 500 RFLG: .BYT 0 ;; CONTA 
1275 901163 po9090 TcMt. “HOR i conte ERATION. COUNT 
1358 1110 900000 PE : . WORD » ;;CONTA SP aRORS 
1778 ill2 000000 R Th: - WORD ;;CONTA TECTED 
ies Selle oop mes: “Evie HUA hee ee AF 
1? Ooi1 RRPC: “WORD 0 5 }CONTA ete eee, Hegrmucrion 
ee H . ee 
17 Bott SDADR: ZHORD 0 ;;CUNTAINS & Bab’ DATA 
yes SBHES Sones Seat: ieee Sarai «ay ° 
1786 otis) oo000 BBB LiRESERVED—HOT 10 OE use 
| } te 
1 0011 000 TOB: BYTE ; sAUTOMAT CATOR 
17es 0011 000 INTAG: BYTE 9 jmvaseph a penis 
te e 
173 D011 1 0 BHR: “WORD Bsur i{BDORE GISTER 
17 00114, 177870 ISPLAY: .WORD DDISP tJ DDRE GISTER 
1793 O01 14s 177560 Tks: 177 9 :3T tO 
1794 11 1 TKB: 1 HTT 
1795 0011 177564 TPS: 1 4 se TTY 
ioa3 Golieg |” BBB Nuc: ‘BYTE’ bi ONT L 
1? HE Fite : YT 2 Hi ONTBINS Lean LER. Eee al ; QUIRED 
1 11 ae T C6; -BY 4 His LSS, AF FLAG A att 7) cBeves) 
1 il oo0000 TMPO: WOR He 
1 ll TMP1: HOR 33 
1 ll TMPe: . 38 
1804 ll TMP3: .WORD $3 
4 it Ma mf . WORD 8 33 
1B Beltre Tires: i on i atl 
1809 1200 177607 000377 rs: "BSC <207><377><3779 i 
HELE SBIBRE cob ae Heed Lt 
181 : ne sngencncs ceccasauscauacsacsabisesdesessouceucecscesceceesuess 
1818 ‘STTL APT MAILBOX-ETABLE 
i513 SGP. ahacctlsinien SC oon ae ccny et Rae 
i818 ool2zi0 — $MAIL: MAILBOX 
1819 001210 ooo000 enecty: .WORD AMSGTY i i Aeosace TYPE CODE 


SEG 0036 
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T MAILBOX-E TABLE 
DDW14: .WORD ADDWIY ;;DEVICE DESCRIPTOR WORD#14 
DOW1S: :WORD ADDWIS + DEVI cE peer PTOR WORD#1S 
SETEND: 
77440 ; DEFAULT ADDRES 
FKVEC: 10 DEFAULT BUS TROCCER INTERRUPT VECTOR 
RKPRI: ;PRIORITY 
PKS: 172540 ?P=CLOCK TaTUS g 
PKRE: «173849 + PEL OCK FEER 
LKS: 177546 — STATUS REG. 
LCVEC: 100 -CLOCK INTERRUPT VECTOR 
PCVEC: 104 -CLOCK INTERRUPT VECTOR. 
M = 114 :MEMORY PAR 
MBAS= 133100 (cen PARITY SETION CSR START ADDR 
; TRAPPC: 0 ;PC FOR MEMORY PARITY ERROR TRAP 
PARAM: 1 F TART FAULT 
FTITLE: 4 it Ae FoR. IRTING Out 1 oY SRocRAM TITLE 
DRVPTR: O ; CONTA POINTER THE DRIVE FLAG 
5 COR IVOSBRIV?) Oe The pave TO BE CHECKED NEXT. 
PBAR= 40 ; BAR 
Prete 0 iron CYLINDER 
cevis: 9 ‘ou RENT CYL IN N TEST 
Ebic. 8 FEL Ey oD el Wt tte 
CYLOIF: 0 et IF RIGH Pale FROM RR 
ALADD: 6 tah HO UT INE 
HZ: 60. 6 ob: ee 
T: +L 60 TO COUNT TO 1 SEC 
A . oe R NUMBER TO COUNT OFF FRACTIONAL SECOND 
FiMup: 0 if ort Ser TIME IS UP 
SECNT: 0 ; 
F C: 5 ; CTOR 
ESEC: EX ¢ CTOR 
SECTOR: 0 :SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
T10: 10. ; TIMEOUT CONSTANTS 
T100: 100. 
T5000: 5000. 
750000: 50000 
WD1: rs) sACTUAL HEADER/DATA WORD 


CZR6JEO UNIBUS RK& DR PRT3 
CZR6JE.P 


oe 


ee a er ee 


as A Ra A aE EE EE RRP TON 


a 
0 


a 


guggseaasseeay 
Soa oul -Ow 


a8 


1l 





2S-JAN-78 12:08 


ooocco 


001 ode 004 
010 020 040 
100 200 


MACY11 30A(10S2) 


25-JAN-78 12:16 PAGE 38 
APT MAILBOX-ETABLE 
wOe2: 0 ;EXPECTED DATA WORD 
OFFERR: 0 ;SET WHEN WRITE CHECK ERROR ON OFFSET 
: O HE NUMBER 

ADA FR JI F 

TE . 5 Meare ADS A BBp Eo RMT TER AEDT INE 
a 1: k iEOR TED FORMAT FOR FORMATTER ROUTINE 
WOCNT: O ;WORD COUNT 

ATAO: ;ALL O° 

ATADI: Go525 arth PATT 
DATAL: 177777 7ALL 1°S 
DPATI: 133467 

AT2: 70627 
WORD: ;HEADER/DATA WORD 
HOWD : fi ‘HEADER WORD FROM RKDB 
BSERR: INFO WHEN SET 
L MERR: 6 Tey mes 1 PERROR PL AG 
BYP ERR: 0 ise e To Byekss R FLAG IN ’GSTATI’ 
HKFLG: 


SLE Mee, 


RHTAB: 7 
£70 re ess ae te Pe is 19. 
Beeged: -Btku See: 3 ee SET is tarts NF 
RDTAB: .BLKW 256. : L AFTER READ 
UNLD: 0 ;SET TO O IF 
BADHOR: 0 BET 18 6 3 {Rt oFE 
. : Et 18 i a E THING — 
HPEND: 0 :SET TO O IF HALT NOT PE 
:SET TO 1 IF HALT PENDING 
;THE ABOVE 3 FkA ARE USED 
:BY ’STOP’ ROUTINE TO BRING 
:THE CPU TO A VALID HALT 
ATTN:  .BYTE 1,2,4,10,20,40, 100,200 ;ATN O-7 RESP. 


. EVEN 


i THE FOLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS 
; THEY ARE LOADED AFTER RDY IS REC’D FROM WRDY ROUTINE. 


SEQ 0038 


RR 


an 


a 


Seer 


Bec 


Re ee eee 


Oo 


tefetatef={=t=ts) 


muro 
petetey 
OMe Ow 


Ss 


a 


2025 


oO 


WON UL Wt 


CZR6JE.P11 


o0S4S0 
o00s4Se 


CZR6JEO UNIBUS RK& DR_PRT3 
2S-JAN-78 12:08 





MACY11 30A(10 


ji Aten 


S2) 25-JAN-78 12:16 PAGE 39 
APT MAILBOX-E TABLE 
;HOLD RKCS1 
‘HOLD RKCS2 
!HOLD RKWC 
ETC. 


; TEMPORARY STORAGE. 


x 
=] 
4 
O0000 BOOOOKOOO0000000 


°. 


THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(O-3) & MSGB(O-3). 


H.AO: oO 

H.B0: 0 

H.Al: 0 

H.B1: 0 

H.Ae: 0 

H.Be2: 0 

H.A3: 0 

H.B3: 0 

: THE FOLLOWING ARE *EXPECTED’ REGISTER FOR THE ABOVE. 

€t.a0: oO 

E.B0: 0 

E.Al: 0 

—.B1: 0 

BBs: 0 
-B2: 0 

E.A3: 0 

E.B3: 0 ; 

‘THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 
A2=BITO ;TEST MSG A2 IF SET 
-B2e=BIT1 
.B83=BIT2 


FALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 
; 


DOUMP: Q ;FLAG - SET WHEN IN DDP DUMP MODE 
DDPCH: O ;FLAG - SET WHEN IN DOP CHAIN MODE 


SEQ 0039 


nee ev — OO OO ee nn 





O4 


| CZREIEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 40 SEQ 0040 
CZR6JE.P11 25-JAN-78 12:08 APT MAILBOX-ETABLE 
2044 oOs"s4 900000 ACTI1: O ;FLAG - SET WHEN IN ACT11 MODE OF OPERATION 
204S 095456 O00000 PPTP: OQ ‘FLAG - SET WHEN PROGRAM LOADED BY PAPER TAPE 
sue £05460 000000 DRIVS: O i CONTAINS THE NUMBER OF DRIVES PRESENT 
wg 5 THE FLAGS BELOW ARE SET TO_1 70 INDICATE THAT A PARTICULAR DRIVE 
2049 ; PRE 
62 DRIVO: O ;FLAG SET TO 1 WHEN DRIVE 0 PRESENT 
dee BRive: 0 tEOR DRIVE 2 
4 aire DRIV3: O ?FOR DRIVE 3 
cost RECs RnB Baie: § Foe aL ¢ 
2057 476 OO00000 DRIVé: O :FOR DRIVE 6 
e058 005500 000000 DRIV7: O :FOR DRIVE 7 ; 
2060 oosso2 op0000 LCLKF: 0 ;L-CLOCK FLAG PRESENT FLAG i 
2061 005504 o00000 PCLKF: 0 !P-CLOCK FLAG PRESENT FLAG 
2062 o05506 oo00000 DOTIM: 0 !SET IF EITHER CLOCK PRESENT FOR TIMING TESTS. 
2063 005510 oo00000 SIZFLG: O :SET IF DEFAULT DO SIZING IN TEST 


CZR6JEO UNIBUS RK& DR PRT3 
| CZR6JE.P11 25-JAN-78 12:08 


Ses 
é 


Seaege 


BOUER LOH S 





Re Re ee ee ee eee 


eh 


WONTULCWMY-O 


00557’ 0755 
005576 4074 
S600 OS4S516 


MACY11 30A(10S2) 2@S5-JAN-78 


ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 
*#THIS TABLE CONTAINS THE INFORMATION roe EACH ger THAT CAN OCCUR. 


t ENOTES: 


SERRTB: 


;ERROR 2 


;ERROR 3 


;ERROR 6 


o00Mm 
nNArz 
ee 


;ERROR 7 


o00M 
NArz 


TAI 


SURAT TSRTOTTEOE. 'F0ETRNEL, 


12:16 PAGE 41 


EBOENTS 19 7 


Pinbicates. a 


Tren iN 


TA HEADER 
ATA 


;POINTS TO THE DATA FORMAT 


‘ 


RMECHS THe? TABLE IS PERTINENT. 
De oSITROR 48 Gol GaBle cORPAINE'S BOTRibRs BBBTEG?e0 as rovtous: 


POINTS TO Hy. 3 ERROR MESSAGE 


SEQ 0041 


;DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 


;DETECTED MDS 


;DETECTED UFE 


;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 


;DR NOT PRESENT BUT SPECIFIED BY OPERATOR 


;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 


CZR6JEO UNIBUS RKE& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 42 SEQ 0042 
CZR6JE.P11 2S-JAN-78 12:08 ERROR POINTER TABLE 


1 
sERROR 1 
i o0s602 7 se ae ;DRA & NED BOTH SET 
1 005604 050755 DH1 
1 00S&06 4074 DT1 
005610 O54S16 on 4 DF 1 
, 
5253 EMle sNO RDY 
i poets cote bie? :AFTER WRITE DATA CMD 
i poees8 Bedpee DF10 
1 gosb2e 
i 005626 tea pae? 
i 005630 OS4622 — OF 10 
J 
M sNO_RDY 
i Bote Be25i3 H E ;AFTER READ DATA CMD 
1 005636 054074 DT1 
1 005640 OS54622 DF10 
1 ; ;ERR 14 
} OOsE4e rete ene! ;CERR SET 
JUS 
ANSE y Br 
ive Boeec8 2 it 
1 ;ERR 15 
EMie2 


945253 :NO_ ROY 
Saal prise tAFTER WRITE CHECK CMD 
hat WRITE CHECK ERROR SET 
OE TER GRE te CHECK CMD 


re 
Vuste-o 
m ooOoMm 
=z =m 
— meh) 
Oo nw 


sERR 17 
00S672 : 2 ;CONTR NOT RDY 
BOSE74 1sSe2 DH18 :AFTER UNLD CMD 

76 4074 OT1 
005700 054622 DF 10 
;ERR 20 
708 Ou4S311 EM13 ;NO ATTN 
15 DH18 
5706 OS4074 DT1 
005710 4622 a DF 10 
0057 ‘ M ;DATA CHECK ERROR 
meaty Dee0ie ites AFTER READ DATA CMD 
os 248 OTl 
0057 054622 OF 10 


;ERR 22 
;CERR_SET 
!AFTER WRITE CHECK CMD 


rurururorururururorurururorororurorurorurorororororororurorurororurururururororurorerororororurururururururoruro u 


ee a ee ee ee ee ae te ne be ae be ee be be ee Pe 


HEIN SOD VON LOO ODD VEN LE ODD VIEW OBB IRN Eee we Ler 


oe 
DAE 
<ruu 
Gane 
WwW 
S00MmM 
toh 
tur 


a 


! 
| 
;ERR 12 | 
04SS43 Emel ;CERR SET 
O0S204 DHe 
¥ 


SS Se SS 


O UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2@5-JAN-78 12:16 PAGE 43 SEQ 0043 
-Pll 2S-JAN-78 12:08 ERROR POINTER TABLE 


BSR NERLOW-—OBaNO mm 
é 
aA 
re 
zu 
=] 
=r 


3 


eS 
7 4 EM18 :MSG BO ERROR 

§ wae peace DHe7 :AFTER WRITE DATA CMD 
: 057 4 DT13 

we 4 DF21 
§ oo0s742 045543 — eee 1 ;CERR SET 
g H 1 [AFTER SCLR 
2 750 OS4622 DF10 
2 ;ERR 2S 
é o00s7S2 o4sS22 EM20 ;MSG B1 ERROR 
2 
2 


De be bao hs bp bh be bs bh bn be Pe ee Pe eee 





35 4 2 DH27 
3 Boevse feases hats 
3 005760 054756 DF21 
$7 005762 045460 gett 
ee 
38 005764 O5201 DH26 ;AFTER READ DATA CMD 
fe: 42 DT13 
‘ 00S7 4 DF21 
2 sERROR 27 
seus 4 EM24 ;VOL_VALID NOT SET 
DHI9 :AFTER PACK CMD 
220S DT1 
Pag err 30 72° 
g ¢ En 0 sMSG Bl ERROR 
6 :AFTER READ DATA CMD. 
2210 DTi3 r 
ale ERR 31 ange 
el . M18 ;MSG BO ERROR 
14 :AFTER WRITE CHECK CMD 
'S DT13 
g 1 DF21 
1 ;ERR 32 
1 ened - MSG B1 ERROR 
Ti3 
é DF2i 
FA ;ERR 33 
EMY4 ;VV_NOT CLEARED 
DHY tAFTER PACK RE-INSERTED 
2 DF 10 
ss ? ;ERR 34 
s5 EN7e ;NO DRIVES FOUND IN DEVICE MAP 
2230 DT1 
2231 OF 1 





SEQ 0044 


FOY 


12:16 PAGE 44 


2S-JAN-78 


ERROR POINTER TABLE 


MACY11 30A(1052) 


JEO UNIBUS RK& DR_PRT3 
ESReIE Pil 2S-JAN-78 12:08 


CZ2R6JE.P11 


Lv¥) 
= 
[e*) 
a 
e 
a 
y J 
ii a 
3 z 
o 
is 4 
8 = 
a 2 
2 0 Q 
o bs 
-O a oa 
ort w = 
Wo WO 
w ce 4 - 
7 cz a Q QO aah? 9 
uw or = LVN} iv) 7 cre 
& Oo fe dea Oo c = za 
o aa az po | a 
ce x e a J J 4 [a z 
oz Oo J Ow az | = oe oO oO ml) 
ecw c« acw tb ZO oO [VY ) oO 4 ii 4 - 
oO | tit os 2 - - es 8 re oa 
a s ie qo 3 - 95 ea 
oO ~ amd = 4 o oO x 
beds 4 a ce or ox x a @ war 
J {FY Ju Zu > Q@u) lJ 
Or oO Or er or a oO or oO o wr 
b ate = = a aa a a ad = = act 
. On OC M4 =—~ OO FO oO wo oO ™—- cur 
“—-w —inN-tu Span ROR tet tet tet ook —— a: = mal = —w twou-, 
ETreu Lfieu 5 -— EZ & =x 5% Ba5 ~ =r 
Wooo ui oS o0 WO AO wo Aa [vv] oo Woo 
w Lad oO ond cw ~” r w wo . 
™ a ™ - r Tr rg > a 4 Tr Fg 
ce c i? 4 i' 4 a ie a 
x i a & 4 a & 4 o ec & ec 
Lev) J Lv) ll ly la WwW ly Lv¥) Ww lu 


ao 
= = — Sa8" 3a Be Mk OR BARE TPR WHAZ BSIR LEK 
se a a 

EL na carat 


RATT A furueunuouruaucuucunueunged 


O04 


sing! ae — RK6& DR_PRT2 MACY11 30A( 1052) VS he 12:16 PAGE 45S SEQ O04sS 
CZR6 25-JAN-78 (12:08 ERROR POINTER TABLE 

gees 006200 054622 ‘, OF 10 

§530 ;ERR SO 

1 O062e02 050273 EM73 ;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 
ee 006204 S DH1 
4074 OT1 

See 1 4516 ere 51 DF 1 

ee%& OO6e2l2e O5071e2 EM93 ;WRONG CYL#® IN HEADER WORD 

ss D062 14 pel Z? DHes : AF TER SEEK CMD 

nNGe a6 42) oTg3 - 

ee BOGE 054732 DF20 

2300 ;ERR S2 

2301 OO06222 04S437 EM17 OFT AD ERROR 

S206 oSe04e DHe7 AFTER WRITE DATA CMD 

3 oS4eSe DT13 

2304 006230 054756 OF21 

2305 ;ERR S3 

2306 O06e232 O45501 EmM19 ;MSG Al ERROR 


ct p — RK& DR PRT3 MACY11 30A(10S2) 2@5-JAN-78 12:16 PAGE 46 SEQ 0046 
CZR6JE .P 2S-JAN-78 12:08 ERROR POINTER TABLE 


BeGpes ae 
0S47S6 


Be3g 5 Buse tOPTER- R AD DATA CMD 


a 


ashen mn anh 


fururu 
JG) GILG) G) LILIG) 


sayy aires 


;NO_ATTN 
;AFTER RECAL CMD 


ba ee ee 
OONCU LS Wle-O 


a 


;ERR S6 
;MSG Al ERROR 


;ERR S7 
7 Ort AO ERROR 

; AFTER WRITE CHECK CMD 
1 

3 


;ERR 60 
;MSG Al ERROR 


;ERR 61 
0477SS EmMé9 ;NO DRIVES PRESENT 


SSeS eon 


;ERR 62 


Dees 125 ;EOWND 19, BRD CYL 


eee 
wir 


;ERR 63 


rurorurururururururorururururururur 


344 
Sue i M19 :MSG Al ERROR 
x Bie He DP TER paive UNLOADED 8 DOOR  PENED 
e 4756 21 
2350 ;ERR 64 

Ss 2 : M20 ;MSG B1 ERROR 

4 ae) 

4 Wee DF21 
§ ;ERR 65 
EM23 SPIN SET 

235 1 DHI1 AFTER LOADING HEADS WITH DOOR OPEN 
358 ge4074 DT1 
3e0 — ERR 66 sale 
e361 006362 045437 ‘ EM17 ;MSG AO ERROR 


we 
£ 
a 
-_ 
Tw 
uw 
fu 
o 
x 
— 
-_ 


CZREJEO 


a 


CZ2R6JE.P11 


b0e376 


rururo 


Sobrante 


I WWILI WWW) 
Bao Zon 


GPS LCea Serer rrere iigicis Seen Raand Le 


Preerreeere 


= eee 


ONOU CWO 


tT 
£ 





RK& DR_PRT3 


2S-JAN-78 12:08 


BeuPSe 


MACY11 30A(10S2) 25-JAN-78 
ERROR POINTER TABLE 


;ERR 67 


;ERR 70 


So 3o2o 39 


VM RR Re Te 


;ERR 71 


Aaza BS 


;ERR 72 


VNU KW O K—WeOD K-WeO —-wW 


oom 
4+~rz 
KKK PRK 


Oo 


;ERR 73 


-—W N 


;ERR 75 


UR f— ese 
—W @ 


;ERR 76 


SS SI2T YEP" COCS 


;ERR 77 


;ERR 100 


;ERR 101 


12:16 PAGE 47 


SEG 0047 


;MSG BO ERROR 
;MSG Al ERROR 
;MSG B1 ERROR 
;CARTRIDGE NOT CLEARED 


:AFTER DISK PACK REMOVED 


;MSG_AD ERROR 
‘OPTER PACK RE-INSERTED 8&8 HDS LOADED 
;MSG BO ERROR 


:MSG Al ERROR 


;MSG Bl ERROR 


;SPIN SET 
BF TER LOADING HEADS WITH CART. OUT 





—e 
=r 
- 


rh BSNS Ber 
rg Baeeue Besse, 
2474 O066S0 





MACY11 30A(10S2) 2@S-JAN-78 12:16 PAGE 48 
ERROR POINTER TABLE 


0 
;ERR 102 
5 
0 
;ERR 103 * 
rt) 
0 
0 
0 
;ERR 104 
a) 
0 
0 
ERR 105° 
: EMS2 ;UNS_NOT SET 
pi [AFTER MDS FOUND 
10 
;ERR 106 
EmMes ;VV_SET 
HIS ;WITHOUT PACK CMD 
10 
;ERR 107 


ET 
R EVEN PARITY ISSUED 


a3 


OPT ER E 


pri 
10 
;ERR 110 
m4B ;WRL_NOT CLEARED 
HG !AFTER WRITE LOCK SWITCH DISABLED 
ERR 111 ” 
; M30 ;ATTN NOT CLEARED 
Bie :AFTER UNIT SELECT PLUG REMOVED 
ERR we 
’ M2? ;NED NOT SET 
16 
Tl 
ERR hey: 
’ M13 ;ATTN NOT SET 
Bue s :AFTER EVEN PARITY ISSUED 
' nse ;PARITY NOT SET 
Tl 
DF 10 


fk 


SEQ 0048 


a 


wo 
= 


BELER LGN 









mt 
mt 








MACY11 30A(10S2) 


—_ eee 
oO 


Or 


m 
D 
9 
_ 
_ 
o 


wr 


oO 


3 
3 
mEgoS 


Sr 


m 
py) 
DD 
3 
i 
S223 
—UR — 
Oo -wvw Oo 


m7 
nH 
oo 


o 


=z 
= 


= endl 
tur we 


F, 
-_ 
—WwOO §—-WOW —-WwOW 


;ERR 130 


2S-JAN-78 
ERROR POINTER TABLE 


;MSG Al ERROR 


;MSG B1 ERROR 


12:16 PAGE 49 


5 Wi NOT SET 
;AFTER WRITE LOCK SW ENABLED 


;CONT NOT RDY 
;AFTER SEL DR CMD 


;AFTER SUBSYS CLEAR 


TEER WRITING WITH WRITE LOCK SET 


;NED NOT SET 
;AFTER WRONG PORT SELECTED 


;MSG AO Ere? 
:AFTER TTING WITH WRITE LOCK ENABLED 


;AFTER RECAL CMD 


;MSG BO ERR 
; AFTER WITING WITH WRL ENABLED 


SEQ 0049 


| 
a 


LOY 
STREET SB GaR 7B'12:08 PCY") SBRASRBdinfeR taace “8 PAGE SO SEQ 00s0 


;NED NOT CLEARE 
reggae {$4 ate) AFTER CORRECT PORT SELECTED 
33 foros pues Brio 
ee setwanse ™ :NO_RDY 
88781 perses BE tAFTER SEEK CMD 
2538 007016 OS4074 Ort. 
~~ ; ERROR 132 
4 Qus311 M13 ;NO ATTN 
1 DH25 
cee Sram aa? a 
48 sERR 133 109 “NED NOT SET 
est eee pe8854 8 OF TER BOTH PORTS DESELECTED 
a boresB | beueed Brio 
sERR 134 
00704: 7077 ‘ ;WRITE LOCK NOT SET SECTOR BOUNDRY 
, . 5 pio !AFTER WRITING WITH WRL ENABLED 
5 Bore Betis Bi 
;ERR — 
? ree ee DHe0 ;AFTER WRITE LOCK ENABLED WHILE WRITING 
sae i 3 
2561 007062 047077 ate 138 451 
sree fan - ;AFTER WRITE LOCK ENABLED FROM AC OFF 
ee y 
4 OC ne 
es SERR 137 
x 7077 MS 
partes ORs i 
0071 4 
7 } sERR INO 30 : SPINDL NOT SET 
7 710" Bseeis f 3 iBT PR Brive MANUALLY LOADED 
oa DOvIIB beubce Flo 
tes 112 1m ONS ne DRIVE NOT READY 
7114 a4 33 ORT YE Ne PGHERED UP 
38 pores Oedeee fio 
2580 ERR 142 
rie ETT gs! 
p07 186 GBab7s Br 
2585 ERR 143 
2586 007132 o4s253 EM12 ;CONT NOT READY 


om 


7 


coon ar UNIBUS RK& DR PRT3 MACY11 30A(1052) 2S-JAN-78 12:16 PAGE Sl SEQ 0051 


om 


ZR6JE.P11 25-JAN-78 12:08 ERROR POINTER TABLE 
? 3 H34 AFTER ST SPIN. CMD 
Seg, Basiae BeGaeg 
2589 007140 O54622 cre ayer to 
‘ ;NO ATTN | 
«BS pee ges ae | 
$3 007146 054074 OT1 
2594 007150 O54622 OF 10 
Sear ;ERR 14S 
007152 046340 
2597 eorse Bear DH35 AFTER MANUAL UNLOAD 
e533 itd 10 
0 se 73 pERR ING 457 CERR NOT SET 
7164 3B H37 SPT ER TIMEOUT TO POWER DOWN 
Zi 074 T 
2605 ERR 147 
2608 172 y M37 AC LOW NOT SET 
see 174 = H37 
G0: Tl 
2 2 10 
2610 ERR 150 
e611 907202 4eM Ema ;NED NOT SET 
cia Beate betes a 
is ERROR 151 
2616 007212 o4Se53 :NO_RDY 
ae Bares 1703 pire AFTER CLEAR CMD 
is 3528 Bebe 
007 451 oti A NOT CLEARED 
sees Bess 234 Bie i AETER Ae PO RED uP 
ee 
Bee4 007230 054622 cre sg" 1° 
5 ¢ M44 ;VV NOT CLEARED 
7 Oostes Bias 
40 Tl 
5 7 054622 OF10 
seat 2 047, sERROR 131. ATTN NOT CLEARED 
2632 eee fires Bite . 
4074 TI 
eo3 deee rio - 
;ERR 155 


;VV_SET AFTER HDS LOADED 
;WITHOUT *PACK’ CMD 


ae 
aS 
we 
-o 
oul 
<= 

oom 

=29 
uw 


26 7256 054074 
3640 ae sERR 156 
41 007262 o46b22 : 6 ;NXF=0 
2642 007264 OS2660 DHYS ‘AFTER SEEK WITH vV=0 


EM3S ;HEADS NOT HOME 


CZREJEO UNIBUS 
eSReJE Pil 


sei 
44 
45 


Seu? 


DN UTE OHO Dep 


SUR Sete a 


Bao zane 


8 RS 


ow 
2 


DNR LiMo 


Ratatat ata at at 


ba776 
bore74 
bo? 


RK6 OR PRTZ 
2S-JAN-78 12:08 


rs 
za 


a3 
Oss0i 


MACY11 30A(10S2) 25-JAN-78 
ERROR POINTER TABLE 


MtuUIN oO 


;ERR 161 


;ERR 162 


oom 
4iz 
£ - 
0 KWHW K-WHMO -Wwun 


a 


ff wet w 
Co Wu 


3ERR 163 


;ERR 164 


om ooOOoOM 
Iz NAIZ 


;ERR 165 


;ERR 166 


;ERR 167 


im OOOO 
Ba 


aa 


;ERR 170 


;ERROR 171 


DH30 
OT1 


pe oOo00 FO 
ra 
rm 


12:16 PAGE Se SEQ 00S2 


;CYL ADDR CHANGED FROM 0 
;MSG AO ERROR ‘ 
;MSG BO ERROR 

;MSG Al ERROR 

;MSG B1 ERROR 

;NXF_NOT SET 


;AFTER WRITE DATA WITH VV=0 


; CANNOT READ BSE INFO 
;ON SECTORS O, e, 4, 6, 8 


;ON SEC 10, 12....20 


;NO_ RDY 
;AFTER READ HEADER CMD 


ele] 


CZR6JEO UNIBUS RK PRT3 MACY11 30A(10S2) 25-JAN-78 
CZREJE.P11 oe Sane7e 12:08 ERROR POINTER TABLE 
99 007420 oS4622 DF10 
700 ;ERROR 172 
D07422 (0474 EM61 
5074 DHYS 
D074, 40 DT1 
7 007430 O54622 DF 10 
705 ;ERROR 173 
7 % 7523 EM63 
163 DH30 
7 eae 4074 DTl 
74 4666 DF1S 
5710 7442 O4SSH3 wii ene 
erie Gora Geel: bus0 
te 
2714 Bg sue oe DF1S 
2715 ;ERR 175 
e716 74S2 047177 EMS3 
17 007454 053503 DH64 
718 0758 054074 OT1 
719 Oc 054622 Dr 10 
ae 7462 7227 _ 170 SH 
ces Heres Beare Rr 
7 a 054622 DF 10 
EEE oorw7e qusves ERROR UF 
ere? 7474 OS146 DH16 
27 gore 4074 DT1 
2729 FOB 462 DF 10 
2730 ;ERROR 200 
273 EM1 
2 DH39 
27 40 DTi 
2734 007510 O54666 OF 1 
2735 ;ERROR 201 
27 7512 5543 EM21 
a Gerele Benn Brie 
2739 po7es8 OS4666 OF 1 
e740 a mete ; ERROR 202 
ere Be008 bube 
a en cmon 2B 
erie 907532 S460 ~ 2 EM18 
a 34 Ooi 161 DHS 
748 007536 42 DT13 
2749 007540 054756 OF21 
2750 ;ERR 204 
crat QOPEME BuUazS pte? 
27 poseue 054074 DT 
2754 007550 O54622 DF10 


12:16 PAGE 53 


SEQ 0053 


;NXF_DID NOT SET FAULT 
;AFTER SEEK WITH VV=0 


;DLT SET 
;CERR SET 


;UNLD NOT SET 
;AFTER MDS FOUND 


; CANNOT FIND MOS 
;AFTER SEARCHING ALL DRIVES 


;VV_NOT CLEARED 
;AFTER UNIT SEL PLUG REMOVED 


;NO_RDY 
[AFTER WRITE HEADER CMD 


;CERR SET 


;UNEXP MEMORY PARITY ERROR 
;TEST #,PRAP PC 


;MSG BO ERRO 
;AFTER AC BHT TCHED OFF 


;CERR NOT SET 
:AFTER TIMEOUT TO ENABLE WRL 


CZREJEO 
CZR6JE.P 


E: 


2388 


ryrury 
Lon 


syathee 


2B 


Oo 


a RK& DR_PRTZ 


2S-JAN-78 12:08 


oOo = 


VRKWe — 


;ERR 216 


m 
= 


om 
eo 3og 

Mew 
KWOW —W0O —WON 


;ERR 217 


90 
na 
MurKWe 


;ERR 220 


MACY11 (1052) -JAN-78 12:16 PAGE S4 
RROR BOINTER TABL 


;WRL NOT SET 


;WCE AT CYL 411,TRK 2, SEC 21 


;CERR NOT SET 


;AFTER WRITING WITH WRL ENABLED- 


;CERR SET 


SEQ 0Os4 


;CTO SET 
;WHILE WAITING FOR OR REC’D CONTR RDY MSG A & B BAD 


;NED SET 


;MDS SET 


;RTZ_NOT SET 


;DURING RECD CMD 


;MSG AD E 


RROR 
;AFTER WRITE HEADER CMD. 


;80 ERROR 


;Al ERROR 


CZR6JEO UNIBUS RK& DR PRT3 


CZR6JE.P11 2S-JAN-78 12:08 


1 


WONOU£ We 


iyo tetera 
N 


apa 


H 
SR 


wre 


seine 


2847 
284 
284 


007702 


* 
ee 


2 








MACY11 30A(10S2) 2@S-JAN-78 12:16 PAGE SS 
ERROR POINTER TABLE 
EMeO ;81 ERROR 


OFel 
;ERROR 221 


0 
0 
;ERROR 222 


0 
; ERROR 7 


; ERROR f 


OnMooo0o0 


;ERROR 225 


;ERROR 226 
EMle 


;NO_RDY 
pice ;AFTER READ DATA CMD 
DF 10 
;ERROR 227 
EMe1 ;CERR SET 
DH26 
OT1 
DF1S 


SEQ COSS 


5a a UNIBUS RK OR PRT3 


SERERERERE ETT ET Eero: : 


Ob 0 hh hh he he he 


O0000) 
Sobetremen ap 
Ps Ses ot 





: 


pags 


be peer be CS 





2 


es 


Oo 
fu 
~ 


£ 





12:08 


00001 


001356 
001100 


000000 
010036 


033344 


MACY11 30A(10S52) 2S-JAN-78 12:16 PAGE S6& 
ERROR POINTER TABLE 
-SBTTL PROGRAM SETUP 


001356 PARSRT: MOV #1, PARAM ;SET FLAG FOR 220 START 
BR PASSAT ; a ARt PROGRAM 


START: CLR PARAM ;CLEAR FOR eno Br 
PRGSRT: RESET iSETUE STACK NAGLE & INIT 
fey ePr0, ~ LSP) is UF OnDE K ED 10 BE NTER 
MOV #1$,-(SP) (et- , 
RTI a é repre INT. RRUPTS 
1$: JSR PC,STKINT ETUP KB VECTOR_ADOR, PRIORITY 4 


TURN ON KB INTERRUPT 


Ea ere ae is 


iBKOe coy ovat Mt bh CHnGE CPU PRIORITY TO LEVEL 6 (IN ’STS’ 
LER J ERRUPTS HILL CHANGE cay PRIORITY TO LEVEL 5) IN 
BOARD IN Mt WILL CPU PRIORIT 


mb *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
sSYSMAC ’SETUP’ 
. SBTTL The CONN THE COMMON T 
;; CLEAR 


CUR 
C 


rads 
OnmiascrTAG, a 


eSkR,RG ;;DONE? 


FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 


ia fom THe TACK POINTER 
;10T vgcren FOR SCOPE ROUTINE 
; CTOR FOR ERROR ROUTINE 





ine Sewcwecweees Meresweeses wees ws 





32 
34 GVECTOR FOR TRAP CALLS 
iy FAILURE VECTOR 
: 
7 ; 
: fie mii Bi gil 
001115 i 
001106 : Age $8. FOR SCOPE 
001110 of My ai 
; ohitER WARE REG ee | 
oooo04 v 11S igPEOR 
001140 MOV SETUP FORD OF RROWARE SWICH REGISTER 


Y TO LEVEL 4 (SEE ABOVE 


SEQ 0056 


| 

! 

| 

| 
*SETINT* ) 
) 

| 


CZR6JEO UNI 2S-JAN-78 12:16 PAGE S7 SEQ 0057 


) 
CZR6JE.P11 25-JAN-78 12:08 IZE THE COMMON TAGS 
177570 001142 MOV sDDI ISPLAY ;;AND A I GISTER 
Be 535 175359 170702 CMP soo Sear ?TRY TO RE ERENCE APROWARE a5h 
101 BNE 66S IF NO TIMEOUT UT TRAP OCCURRED 


7 saa tes Homan Be fare tial 
Hi RETURN 


27 010250 64S: MOV #6S$, (SP) ;SET UP FOR 


; 
a 
3 
2 
: 
sf 


;;POINT TO SOFTWARE SWR 


7 | BY SRIBERE EB cay 
12637 poono4 66S: MOV (SPp4 SERAVE ;;RESTORE ERROR VECTOR 


septe uy AR Pass C 
000e00 001231 BITB is IZE, SENVM v Meek SI wee Y" 
Ole? 001232 001140 MOV #SSWREG , SWR NO, USE AP SHITCH REGISTER 


De De fee Ps Se Det ba Pes poe be ee et en foe 


2] em Ga 2 es a 
% 
: 


01 : #1$, ERRVEC ; TIMEOUT VECTOR 
1 1 000340 oo0006 MOV » ERRVEC+2 

1 012701 172100 MOV sHEMBAS, Ri ;ADDR_OF MEM CSR 

1 il 3S: CLR ; E IF CAN REFERENCE 

1 11 000001 MOV i EU :SET ENABLE BIT IF YES 

1 737 031110 000114 MOV ene ?LD MEMORY CHK VECTOR IF DONT TIMEOUT 
: 737 000116 MOV 

1 02 1S: CMP (SPot, (SP)+ ;ADJ STACK 

1 oggon2 Bs: ADD : TRY NEXT CSR 

i 17214 cHe R1’ eMEMBAS+4O jALL T IED? 

1 oo0004 MOV RRVEC+2,ERRVEC’ "RESTORE TRAP CATCHER 
1 aan “3 CLR ae ‘ : 

1 7 1238 ISR PC, CLRFLG ;CLEAR DDUMP THRU SIZFLG 

1 CLR gdEver 

1 7 CLR I 


i FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 


nH ay 08792 ooo04e START1: TST 4 

1 1935 BNE é ;BR IF AUTO 

1 3 pe 20 JSR C, TITLE ;MANUAL, TYPE PROG ID 
i 3727 1 000013 CMPB ee TOS LOADED BY XxDP 
1044, 4? oos4S0 TNC DUMP pe pure MODE FLAG 

Ol 036543 to »MSGe iREPLACE PACK W/SCRATCH & DO<CR> 
104S4 1 10470 JMP Te 

010460 000137 Bioso4 1$: JMP T3 

010464 005237 O0S4S6 es: TNC PPTP ;SET ACT/APT/PTP DUMP MODE FLAG 


-O 


t CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 


ror 
re 


STRESS LETS og MOTH! SURLHORPL Hee Corn FALE, "OM 5 an cont 


B568 ;WITH OPERATOR. THE R REPLY TO ’DRIVES TO BE TESTED’ SHOULD BE 
DRIVE NOS. SEPERA ERATED BY CO COMMAS & TERMINATED BY <CR> 
eab4 : EX S TO BE TESTED:. 1,2,4<CR> 
sas 910470 737 001356 ST2: TST PARAM 
10474 1002 BNE 1 ;BR_IF 220 START 
£369 010476 1 os IMP Sty 2 TART, DEFAULT & SIZE THE BUSS 
o Ol GL 1S: TYPE MSG3 : S TO TESTED 
7i O1 7 024210 ISR Pc. GDRVS ?GET DR_NOS. 
7 1051 1 0366 TYPE mSG4 BUSS ADOR 
7 1 7 4 ISR Pc. GBA :GET BA 
74 O1 104401 036723 TYPE MSGS :CONT INT VECTOR 
2975 010526 004737 024376 JSR PC. GINT :GET INT VECTOR 
e376 010532 000427 BR sts 
297) 
297 ! AUTO MODE 


?CHECK IF LOADED BY _XXDP OR OTHER. SET FLAGS & NO INPUT DIALOGUE. 
i DEFA & PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY 





53g2 
2985 10534 123727 000041 000013 ST3: CMPB 41,013 ;13=LOADED BY XxDP 
i wi Oobe37 posse . The 0 He ;SET RKO& CHAIN MODE FLAG 
i S4 et 037040 TYPE aligc? ;DRO NOT TSTD 
1 oos4s4 1S: FRc ACT11 ;SET ACT AUTO FLAG. 
1 774 901 4 ST4: MOV #177440,SBASE ;DEFAULT VAL 
1 21 1334 MOV 10 RKVEC >DEFAULT VAL 
1 430 JSR PC, SETIN 
01 S10 INC SI2FLG ;00 “SIZE THE BUSS” TEST 
01061 2 STS: CLR UNLD s INITIO 176 FL 
tee ce peep PSR hic Phone TE 
3001 OI 11 CLR $e CAPE 
1 117 CLR MPS fait RKO7 FLAG 
3003 O01 4 001362 MOV 8ORTVO, DRVPTR 
ibeso i ctR «SUNY 180, OF (ORS 
1 20 CLR I NT DRV R eae 
300 i ooo004 nov 815, ERRVEC SEE ee ra e1b¢ ERROR VECTOR 
Estate 1 INC LCLKF 
1 MOV LCVEC,RO 
3010 1 4 oo00004 MOV 82S, ERRVEC 
1 10704 TST KS ~ IF P-CLOCK THERE 
301 10710 S04 INC CLKF SENT, SET F 
3013 010744 001352 MOV PCVEC, RO :VECTOR ADDR 
3015 
3016 010722 Oe22626 1S: CMP (SP)+, (SP)+ ;L-CLOCK NOT THERE, CLEAR STACK 
3017 010724 012737 010770 ooDD004 MOV #4$, ERRVEC 


toon a UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 issue PAGE S93 SEQ Coss 


CZR6JE.P11 ~- 25-JAN-78 12:08 INITIALIZE THE COMMON TAG 
3018 010732 005777 170402 TST aPKS ;SEE IF P-CLOCK THERE 
3019 010736 005237 o05S504 INC PCLKF :P NT T FLAG 
es? BiB Sa me 8 OB YtarR° ry 
3S: I ICATES TIMING TESTS CAN BE DONE 
3022 O1 012720 030230 MOV SCLOCK, (RO)+ :SERVICE ROUTINE FOR CLOCKS 
3023 010756 012710 000300 MOV 8PR6, (RO) 
aS 010762 000407 BR TSTi ;;GO TO NEXT TEST 
10764 2S: CMP (SP)+, (SP)4 ;P-CLOCK NOT THERE, CLEAR STACK 
3087 Oboe ata eg BR oe 
107 26 4S: CMP (SP)+, (SP)+ RiCLo K THERE, ag FAR STACK 
1077 OO5506 LR DOTIM NinIN T CANNO 
1 107 104401 03724 YPE »MSG13 PALL TIMING TESTS BYPASSED 


Oo 
(te 


eee eee 


gene 7eo UNIBUS RK& DR PRT3 
2S-JAN-78 17:08 


CZR6JE.P11 


SBRCRRT OR Da UIOOE Sos 


ed ed ed ed ed ed ed nd ed ed ny ny nd a ST a ne ay ne ee eg ny 


1 
1 
1 
1 
1 
1 
gs, S118 
307 136 0127. 
es IS REE im 
3079 154 
se SNES BBS cearay 
3080 
3084 
3085 
3086 
3087 
3088 


8 
2 
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oooo04 


ooo004 
000006 


78 __12:16 PAGE 60 
BASIC CONTROLLER TESTS, SIZING & SETUP 


-SBTTL BASIC CONTROLLER TESTS, SIZING 8 SETUP 
Pogqnqnnnanasonoossonssessseneneee iin... 


; ATES REFERENCE ALL CONTROLLER REGIST 

i THIS TE FIES THAT THE C NTROLLER REGISTERS 

# pe BC oe Fbeout "INABTL ITY BE ACCESSED WILL 
* ve THIS rey WIL aur N ERROR RESEACE ALL OTHER” 
* F JUMPI cr Re pads 


Re ON a aint clit cos Meneses ei 


COPE 
NOV «STACK, iApStORE STK PTR 


SEG 0060 


MOV #PRO,-(SP) RESET PSH PRIORITY 0 
nov #S$,-(SP) tg; COMPATABLE 

S$: 
MOV #1$, ERRVEC TUP_TIMOUT ERROR VECTOR 
MOV RS ; SETUP 1h X REG. 
TST CSitrs) ;REFERENCE ALL HE 
TST RKCS2(RS) :CONTROLLER REGISTERS 
TST RKWC CRS) 
TST RKBA(RS) 
TST RKDACRS) 
TST RKDS (RS) s TOUT Wart THIS SECTION 
TST RKER(RS) ; INDICAT HE CONTROLLER 
TST RKASOF (RS) jREGISTE 
TST RKDC(RS) j TES ING tine NO PROCEED 
TST RKDB(RS) :UNTIL THIS IS REMEDIED. 
TST RKMR1 (RS) 
TST RKMR2 (RS) 
TST RKMR3(RS) 
TST RKECPS(RS) 
TST RKECPT (RS) 
MOV sBADTNO ERRVEC ;SETUP TIMEOUT HANDLER 
MOV #PR7, ERRVEC+2 

;;GO TO NEXT TEST 

1S: CMP (SP)+, (SP)+ TORE STACK POINTER 

ERROR ate -COULD NOT REFERENCE CONTROLLER REGISTER 


5 AE AE Ae 0 A a A a a a a a aaa a a a aa aa aaa a aaa 
EST 2 SIZE THE BUSS 

THIS TEST IS ENTERED Y if "DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING N THE AU O MODE oR A 200 START IN T 


EVERY DRIVE FROM O THRU 7 IS ADDRESSED. 
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE 


We Mi 9 he Oe Hee 
4 


EEE 


CZR&JEO UNIBUS RK& DR_PRT3 MACY11 30A(10S2) @S-JAN-78 12:16 PAGE 61 SEQ 0061 
CZ2R6JE.Pil 2S-JAN-78 12:08 Te SIZE THE BUSS 


3090 ; DRIVE WILL BE TESTED AS AN N RKO6. IF SET, atte PROGRAM WILL BYPASS 
3091 1 TESTI e THAT 3 OMY HE ERROR RASA RESULT OF 
;# THe RG SEt on & DRA RESET IN- 
3093 i BIcATING Ofte OTHER TSR i ACC SoED, 
3038 i DUE TO D Ofte. DRIVE WILL TESTED AS AN RKO7. 
30 } « SEKKKRKRRAERRARRRARRKSRAARARAAAARERARRARRSARARRRRAARRRARRRRARRRR ES 
$835 BHIEY 899904 cog, cour TST ASU ay graves 
30 Bit pts eae 001100 MOV aStAck, SP tao roe STK TOR 


£f£tscet 
Wwe 


9s 
96 
38 
00 
3101 011200 005237 001502 INC BYPCERR ;D0 NOT TEST CERR IN FRDY 
3103 ll 327 000200 001231 BITB #8177, SENVM E IF eee APT SELECTED DRIVES 
104 Ollei2 1 BNE 14 IF 
3105 11214 000137 011334 IMP 125 LSE DO ES ORM SIZING OR VERIFY 
107 O11 7153 14S: TYPE G10 rm T OR 
3108 11828 pacdeo CLR RIVS y prives PENT 
3110 il 39 12701 oos46e2 fv BORIVO Ri DRV F 
aiid 1iS3¢ tea 001266 MOV SDEVM, Re spay DRY FLAG MAP 
3113 011242 032702 000001 15S: BIT #B1TO,R2 ;SEE IF DRV IN DEVICE MAP 
114 O11 4 BEQ 165 : 
115 O11 005460 INC DRIVS L INCR yPREVE COUNT 
116 11254 il INC (R1) & SET ORI SENT FLAG 
git 11 204801 001205 YPE $CRLF 
3118 11 10046 MOV RO, -(SP) ve" TYPEOUT 
31 11264 104403 TYPOS ASCII 
3lel bt iSee 001 BYTE 1 ig 1G iets 
3ige 011267 000 “BYTE O Ber Cha ADING ZEROS 
rt 11 0057. 16S: TST (R1)+ :Aov POINTER TO NEXT FLAG 
a a Ie RO ae 
ae es ¢ 
136 ll BST abe BEG 178 BL vee 
1 011302 oo6002 ROR Re LSE GET NEXT BIT OFF DEVICE MAP 
130 011304 000756 BR 15$ 3 Phy fica 
31 11 005737 oos460 17S: TST DRIVS ;SEE_IF MORE DRIVES PRESENT 
1 O113te 001402 BEQ 1 iBR I 
: 11314 1 012010 IMP VERIFY LSE EXIT TEST & SETUP FOR RKO7’S. 
1 11 04034 18S: ERR 34 DRI N_ $DEVM 
i 11 60 oR ger UP CORRECTLY oi Pars * CONTINUE’ 
1 il 0137 010612 id STs 
3133 11330 000137 012010 20S: IMP VERIFY !:D0 NOT SIZE, GO THE NEXT TEST. 
31 011334 012765 oO00040 o00010 12s: MOV #SCLR,RKCS2(RS) ;SUBSYSTE™ CLEAR 
31 
31 
31 


$ 


N 


e 


Ut, 
v 
~~ 
——s 


WWW WWI WWW WWW WWWWWIWWWWWWWW WWW WWW WWW WWW WWW WWW) 
ee te ae be ae be ae Be be Be be ae ae ae ae Bae ba ae Be ae en ae Be Be be Bm be be Be we be be he 
Ce el cel ol el el ed od ed ded aed el el and Cand an el a Sa a a a OR On SY NY SY ny a wang wey wg 


DOOOOOOOOOOOOOOOOOOO0O0000000 G0O0000000 C00 


BSBVTRLOR— Goa) oro 2asde Sue WO FOO Owes VUE Coto Gabe ae 


0 
— 


WWWWWWWWWWW) 


eet at tt wt te 
0000 OO O000 


pe be be ee bs bee ba bs he pe 


SSSVRR LG 


Oo 
~ 





IBUS RK& OR MACYL1 30A(10S2) 2S-JAN-78 12:16 PAGE 62 SEQ O0be2 
Bi Poa :08 T2 SIZE THE BUSS 

134, 137 1424 905376 MOV T10, TEMP1 ;SET TIMEOUT 

1350 Boi? ib peeG2 JSR PC. FRDY :FIND RDY 

1354 1 ERROR 120 :RDY NOT SET BY END OF SCLR 

1 005510 TST SIZFLG 

i 4 irae 715. Pree osc 0 big 

i 0 p37 13 cLR batvs BB fhe 

: 12701 oos462 mn MOV #ORIVO,R1 i pay FLAG 

1808 . SCOP1 

1404 001100 MOV aSTACK, SP ;RESTORE STK PTR 

1410 oo00040 000010 MOV #SCLR RKCS2(RS) ; SUBSYSTEM CLEAR 

1416 po14es 005376 MOV TAO, TEMPL tate ME OUT 

14 42 JSR Pose 

14 ERROR Y NOT SE Yer y END, OF SCLR 

tH ? 340 aM Pr) B,racsac i jSELEC _— 

1444 340 BIS © HeS1 ; ADO cor IF RKO7 

so SRO, = ABYHbunaGezg®? ir Stavus 

rt 1424 005376 ns) Ter a 

1 JSR PC, FRDY ;FIND_ RDY 

1 ior RROR 11? :NO RDY AFTER SELECT DRIVE CMD. 

i 14 — Bil BCERR, HCS1 

1516 005366 005376 MOV HMR2, TEMP1 

1 70 005376 BI #tC<ORVMSK>, TEMP1 

1 bos37e ied os ave F ;S/B SAME 

i 

1 aut 

1 4 

i 44 oos4se af e H ;SEE IF XXDP CHAIN MODE 

1 yy 4S: Ivs 

1 ns NE (RL) i ING BR PRESENT FLAG 

1 901170 IS. STMPY, (RL) tADD CDT IF RKO? 

1568 0012 Y SCRLF 

1 MOV RO, -(SP) Pig fe’ FOR TYPEOUT 

1235 “BYTE 1 i bieit — 

1875 BT 0 1 Bree db CEAD NG ZEROS 

1 S$ 

1600 025250 : PC, BYP 

1604 - ZRROR 1 URTTTEN OR oR a OB ors NOT MATCH RKMR2 DR # 

1606 S$: TST (R1)+ ;SHIFT PTR TO NEXT DR. FLAG 

161 INC RO ; 

1612 001170 CLR $TMPY :CLEAR RKO? FLAG FOR NEXT DRIVE 

1616 000010 CMP #8. ,RO 


EgRe IEC UNIBUS oe 5 DREN 13.08 MACY11 SG 1052) SET hg Es te PAGE 63 SEQ 0063 


Pil 
3202 011622 001267 BNE 1$ ;MORE LEFT. 
3203 011624 905737 n0s460 TST ORIVS 
3205 iba ERROR ;NO_ORIVES SEEN 
11 HAL :SETUP & PRESS ‘CONTINUE’ 
7 011636 000137 010612 IMP STs 
11 37 OO0040 005354 2s: BIT #OTYE , HER 
10 O11 BEQ 13$ 
it il 902009 001170 MOV 8COT, STMPY ;ADD CDT 
1 il 1 114 IMP § : TRY AGAIN 
13 i 4 32 001000 oos342 138: IT #MDS, HCS2 
1s 1 74 oo0400 005242 I SUFE,HCS2 
i$ 117 000001 005352 Bt #0RA, HDS 
3e18 11712 O1S BNE 
iifee ; 010000 005342 BIT #NED, HCS2 
33 J 117; 350 BR EH 
3223 0117 004737 o2S250 6S: JSR PC, BYP ;TYPE BYP OR & 
117 ERROR 2 :MDS DETECTED 
117 $ 
117 7 025250 7S: PC, BYP 
22 O117ae PB4083 ZRROR 3 ;UFE DETECTED 
3269 11744 000720 BR 5$ 
323 11746 7 010000 o0S342 38S: BIT #NED, HCS2 
32 11764 1676 BEG 4g 
11 104401 037360 Y MSGIS 
3536 011762 O10046 MOV RO, -( SP) ey RO FOR TYPEOUT 
11764 104403 TYPOS :G EY -octaL ASCII 
323 011766 001 BYTE b tt TYPE 1 1 _DIGIT«S) nil 
38 011770 oupie BOR 1 ‘ARR 8 ai RE AOI SET 
1177 bbaroe 5 
2 11774 v4 o2s250 9s: SR PC, BYP 
i : O4 OR ” ;NO DRA & NO NED = OTHER PORT SELECTED 
seus 012004 000137 o12402 10S: IMP NUDRV 
7? o12010 VERIFY: 
4 
1 


« LEKRRRERLRASAARRASAARAERRKEREKRERAARAARRERARRRARRRERRRRRRRRRAAEE 
‘kTEST 3 VERIFY OPERATOR DRIVE SELECTIONS 


DEFAULTED. EVERY DRIVE FROM 0 10-7 1 ADORESSED 8 
BRSLea of PPOs ASD barve nos PRESENT BS AN AKOG 


RR WAS SET, THAT DRIVE WILL BE BYPAS 


Bie 
208 


une 


rorore 


s7 


ES en ees ae ne 


om 


SeMnasseSoau naam saa OTERO B IS Wan Sones ene 


. 


CZR&EJEO UNIBUS RKE DR PRT3 
2S-JAN-78 12:08 


CZR6JE.P11 


58 
S93 


bb bb bb ee ee 


tb bb bb = 0 


WW) 
WWW 


ete 
WrurO 


furvrorurororurorury: 
Se a ee a ee oe eT a 
aos 


rm 


fu 
Remy me 


rurorofuru 


— 
mo 


- 
rm 
N“N 
iG) 
N 
— 


ENSERLTFERLERTOR 


2 
8 
S 


o~ 


= 


eS 
RARER RRARDL TANS 


care 


$i 


~ 
= 
£ 


Ree Se es 


00S460 


oooco40 


002000 
012032 


MACY11 30A(10S2) 
T3 VER 


001174 


000010 
008376 


Boss4o 


0 
376 
005376 


005340 


00S$376 
005376 


00S3S4 
001170 


2S-JAN-78 12:16 SEQ 0064 


PAGE 64 
IFY OPERATOR DRIVE SELECTIONS 


A iene i. a aa we’ a or MOS OR "> SET OR BOTH 
CERR IS_ A RESULT OF 
AINT THE INPUTTED INFOR TO 


it Gt Be AP Pete WILL BE TESTED AS RKO7. 


; 

; 

, 

; 

i 

‘i cg |S enspuegrenunaer ein neapanaspaagaocpiepe tec 


ga od RT 


CL 
i“ MOV #ORIVO,R1 :DRIVE FLAG 
= SCOP1 
MOV #STACK, SP ;RESTORE STK PTR 
Mov SSCLR, RK RKCS2(RS) : SUBSYSTEM G CLEAR 
JSR ie O,TENPI PEND Ap OU 
ERROR :NO RDY AFTER SCLR 
MOV Meme :DRV ADDR 
MOV SSELDRV , 
BIS ;ADD CDT_IF RKO7 
MOV Acs sBxC3 Ices :GET STATUS 
ney y’ ;D0 DELAY TO CATCH MDS 
MOV at EMPL 
J R C,FRD ;FIND RDY 
OR tt) :NO RDY AFTER SELECT DRIVE CMD. 
IT #CERR,HCS1 
Bie HMR2 
BIC BI CCORYHSKO , TEMP 1 
CMP RO, TEMP1 ;S/B SAME 
11S: S (R1) 
BEQ 4g 
BIS STMPY, (R1) ;ADD_CDT IF RK 
4S: TSI (R1)+ HIFT PTR TO Rex DR FLAG 
CLR $TMPY LINC ORO, FLAG FOR NEXT DRIVE 
MP #8. ,RO 
SNE 1 ;MORE_LEFT 
BR TST4 +;GO TO NEXT TEST 
3S: J PC, BYP ; TRY OR 
ERROR hati +WRIT tN eRe Baes" NOT MATCH RKMR2 DR# 
BEQ us ;BRANCH IF NOT SPEC BY BY INPUT 
12S: as ORIVS i DECREMENT TOTAL 
ck (R1) ‘CLEAR DRIVE FLAG 
2s: BIT #OTYE, HER 
BEQ 1 
MOV SCOT, STMP4Y ;ADD CDT 
IMP 1g :TRY AGAIN 


CZR6JEO UNIBUS BKe OR 
CZR6JE.P11 2S-JAN- 


14 
| His 
| 13 pices 
| 3318 16875 
| 3330 615304 
3380 leslie 
1 uy 
ses Ol 
; 
350 : 
ee 018340 
33. 1234 7 0eS250 
se BESS BS 
1 730 
1 004737 O25250 
1 ooe 
1 724 
12362 737 Oe2Ses50 
ae Ree oR 
31 12370 000720 
Ky 012372 004737 oOeses0 
3343 012376 104004 
3344 012400 000714 
334S 
3346 
3347 - 
34 
34 
3350 
3354 
se> O1e402e 005037 o01S02 
357 O12406 005037 001170 
| 
| 
| 
| 





MACY11 30A(10S2) 


o00S34e2 
oos34e 
o00s3Se 
o0s34e 


o00S342 


T3 


13$: 


8$: 
10$: 


NUDRY: 





S-JAN-78 12:1 
VERIFY OPERATOR: D 


BIT #MDS,HCS2e 
Mai Sr e,Wese 
BI a 
Bi #NED,HCS2 
Q 9$ 

10$ 
BIT nw 
ee 11 
TS (R1) 

4$ 
JSR eee 
12s 
JSR “een 
1e$ 
JSR healed 
12$ 
PC,BYP 
12S 


THIS PART OF THE 
‘HS. PRESENT 


*SUNIT: CONTAINS 
UNDE 


CLR BYPCERR 
CLR STMPY 


5 
Rive Se SELECTIONS 


; TYPE BYPASS DRIVE# 


; TYPE BYPASS DRIVES 
;MDS DETECTED 


;UFE DETECTED 


;DRA & NED RESET - OTHER PORT SELECTED 


PROGRAM WILL BE REPEATED FOR EACH 
THE ADDRESS OF THE DRIVE CURRENTLY 


;ENTER HERE FROM LAST TEST 
; TEST os IN ’FRDOY’ 
;RKO7 FLAG 


CZR&EJEO UNIBUS RK& DR _PRT3 
CZ2R6 -JAN- 


JE.PL1 es- 78 12:08 


SORES § 


1241e 
SiSSIS Slee, Rrra, sou” 
71 Ole4e6 Ole737 OOO004 001214 
376 012434 O1e737 000004 001102 
3374 Ole44e 005737 OOS460 
Be HES RS or 
A Bi 4 137 023734 
338 012460 013701 O01 
a200 i 4 005737 001220 
3353 i maa 001222 
1 Tooe 
Bee fle Biss 
1 oos4Se 
1251 
Be Hess BI coszss 
1 002 
3 Ol 
1 
Se ion 
Be flee Bie para 00170 
Bie es 
a00 O1eSS& 010046 
34 12560 1044 
oe es 
3405S 
$5 
3408 012564 005737 001170 
3403 012570 001014 
silt Bissos Bheces pomees o1esss 
34le 012604 012737 000777 012656 
3413 Qle612 012737 160017 012660 
3414 Ole62e0 O004e21 


MACY11 30A( 1052) 


ti 


3$: 


6S: 


fio NEXT DRIVE: 48 Patty 


FIND NEXT DRIVE 


THIS TEST FINDS te 


SEQ 0066 


| peed SEET Aerdins apc pled tinh Oe a 


NEXT DRIVE TO BE T 


ADDRESS IN ’ aE FF 
Toe T 


umuauw 
4o4 + 


Do O4040-0-4 


VE WHOSE” ADDRESS 
enmergngprveeneeeneennsesseessesneesneeunesnenaen 


eh STIMES 


K, 
SSTN-1" , STESTN 
; STSTNM 


#STN-1 
DRIVS 


MSG27 
$E0P 


oe 


BEReaSaSERS 
o3 
= © 
4 =x 


heen 
ADA 
rons 
— 
+ 


aCOT, (R1)+ 


#COT, STMPY 
R1,DRVPTR 
mSG1S 
SUNIT RO 
0,-(5P) 


or 


, SCRLF 
STMP4 
7$ 
E.D0t 
4777 


A my VE Ax 


MASK 
#160017, MASK 1 
TSTS 


TS_ THAT 
0 ‘ep IF ORIVE IS RKO7. 
1 a Tests, 1H rite ie TESTED IS 


; ITERATION 
+ APS TORE STK PTR 


;ANY DRIVES PRESENT? 
;YES BRANCH 

;ALL ORIVES TESTED 
;NO, GO TO END 


E 
ADDR OF NEXT DRIVE FLAG 
DRIVE BEING CHECKED 


SE sey 


see F oo UNDER — IS RKO7 
;EL RKO7 FLAG 
;oT POINTER TO NEXT DR FLAG 


RO FOR TYPEOUT 


VE 
IVE # 
OerT ee iMacs 
PE 1 DIGIT 
RESS LEADING ZEROS 


ta IF y RKO7 UNDER TEST 
;ELSE LOAD RKO& PARAMETERS 


;;GOTO NEXT TEST 


CZR6JEO UNIBUS RK& DR _PRT3 
CZR6EJE.P11 25-JAN-78 12:08 


ty B1gea) 

ale Sees 
bo 01e6Se 

Yel 

s4ee 012654 
423 Oleb 
e4 012660 

3425 Oleb62e 


012737 OO14S6 012654 


MACY11 srGC 1052) 


Ries oe Bl ; 


140017 Ol2e66 
000000 LC: 
000000 MASK: 
000000 MASK1 
000000 E.DDT 


FIN “RENT RIVE: if i ct 


MOV a ’ ;LOAD RKO7 PARAMETERS 
Nov £0,00 sfeP? 
Vv g14gol7, MASK1 
;;GOTO NEXT TEST 


;LAST CYL 


;EXPECTED DRIVE TYPE TO E.A0 


SEQ 0067 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 68 SEQ 0068 






CZR6JE.P11 25-JAN-78 12:08 T4 FIND NEXT DRIVE TO BE TESTED 
rth 012664 PFSRT: NTER HERE FOR POWER FAIL RESTART 
$ ae vevaeaenacnensuesenauvensualasusnseuotaensuatnenanatienstaen 
455 ATE TS PRINT DRIVE SERIAL NUMBER 
3? : x THIS TEST READS & PRINTS THE ORIVE SERIAL # FROM MSG A, WORD 11 
3432 if IN BCD 8 IS PERFORMED ON THE IST PASS ONLY 
cae - KKERREMEXAKEKAERREKRERKEKKER RAE EKER REEREL REL E KSEE ERLE SHEKEEEKEEE 
Diseee iera? 001174 tes: nov. @.STI 1 
ee ee 
ae RISES B15 386 sete HOV setacn ee APCs ded ERR Agh 
012700 005737 001216 TST SPASS 
a440 012704 00104e ate, BNE i ;;G0 TO NEXT IF NOT FIRST PASS 
a) Bis98 9 Bda84 ZREOR BG’ i RO.RURSYS, BEAR 
44 012714 10440 7 TYPE I AL 3°: 
345 big? 12765 it 000026 MOV bak “RRR CRS) Se SELECT her 
46 O1 7 026106 JSR PC‘GSTA ; GE 
47 Ol 13701 005386 MOV 1 ; T Seni 
1 1 46 MOV #SOCTVL,RY HAR BUFF 
4 i oie 10446 nov Ra, of (SP3 BOR CHR, FOR SSUPRS 
a 1 iB} — ROL RI ee THe Chae BPP eR oSIT IONS 
i 1 i 1S: Rot Ri ;GET NEXT 4 BITS 
3454 O1 101 ROL R1 
3455 01 101 ROL R1 
3136 O1 104 ROL R1 
i rs as 7776 Bre Rt BO 0,RO Lah oaL Neuf Lo TS 
3428 Bt baaaeo BTS $60 of : Ete foeus tM BT 
3460 O1 MOVB RO, (R4)+ PUT ASCII DIGIT INTO CHAR BUFF 
seh Blas Gores re F Abbe SHERS 
3e3 i 1 4 Be (R4) BR INGER NULL ren 1RST5R 
3465 013006 004737 035314 ISR PC, SSUPRS ; TYPE 
3466 ; TY’ » SERLE 
3467 : TYP! > SCRLF 
ade8 2 ar at On ore a cn 
3420 j ATE SET VV WITH PACK COMMAND 
378 ir IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
3474 oe REKRAARKSAARRAARARASRARARARAERRERSRRARAKKAKKERRRARKRRRHKRAKKHKKRAEAES 
3475 013012 oo00004 tSts: Sco 
3478 13014 012737 oo00001 001174 MOV #1, STIMES ; 1 ITERATION 
a177 013022 012706 001100 MOV aSTACK, SP ‘RESTORE STK PTR 
34739 0130 004737 026436 J PC, SUBCLR 
3480 613058 104024 ERROR 24 ;CERR AFTER SCLR 


CZR6JEO UNIBUS RK& DR PRT3 


CZREJE.P11 2S-JAN-78 12:08 
i 737 000100 
1 1 1 
1 1 00122. 
1 0. 
1 7 O2e4446 
1307: 104116 
90 13074 7 000100 
39 12074 930737 
013104 104027 
013106 
4 
# 
96 
3497 
sige 
33 
3500 
3503 013106 oo0004 
3504 seyer4 pisces? oooo01 
3508 13116 12706 001100 
Eat O13ie2e oose37 o0S322 
3503 0131 004737 4 
3210 Bist 1 3 ee 
1 13134 012737 7 
gels B13ia2 ts start 
Se 1346 IDG? 
3518 O131S4 104020 
351 
3518 
ge43 
20 
351 
352 
3523 
ae 
3528 
3531 
333 
ae BLIGE POOP canon, 
3537 O13166 012706 O011 


MACY11 30A(10S2) 
Té 


00S366 


000000 
000010 
00S340 


005366 


001174 


005340 


001174 


2S-JAN-78 12:16 PAGE 69 
SET VV WITH PACK COMMAND 


NE 7 ;;GO TO NEXT TEST IF vv SET 
MOV #CCLR, RKCS1(RS) 
MOV IT; 2(RS) ;DRIVE # 
MOV #PACK’HCS1 
JSR c, Dot ;D0 PACK CMD & GET CONTR RDY 
ERROR 116 :CONTR NOT RDY 
B: #D. VV, HMR2 
NE 64S 
ie ERROR 27 ; VOLUME VALID NOT SET AFTER PACK CMD 
wae. ae ae ae ee 
j ATEST 7 UNLOAD DRIVE TO BE TESTED 
t% THIS TEST OADS THE DRIVE TO BE TESTED NEXT 
ITs BR AT Ne VERIFIES IT CAME FROM THE CORRECT DRIVE. 


genie ge aeeseagntpai ese pence ine sctemgaagaa eR RC RB te pate 


ti 
HOV 01 +SLIMES ;;D0 1 ITERATION 


INC UNLD ;USED TO CHECK FOR VALID HALT 
JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

ney NbocHO & GET AgonTR READY 
ERROR tS OS ROY RE TER UN UNLD C 

SR C, TSTATN 

ERROR 20 a ATTN AFTER UNLOAD CMD 


-SBTTL OPERATOR INTERVENTION TESTS 


; 1 aac oO meneame namaste 
tkTE INTERLOCKS TESTS 


is oe VERIF HAT THE DOOR & CARTRIDGE STATUS BITS 

i fn RE SSoGE mab, & THAT THE REMOVAL 

is ek “ie WING STATUS BITS OF 

i s STARTED 

it oie ° Fel veri cones 

ts IT AL FI VOLUME VALID RESETS SACK WHICH 
is ASSERTS EX STENT Pee IN RKGSE 

Ig, Roymeer gp renner nEg eres 


ITERATION 


#1, STIMES 
t APSEt STACK PTR 


OV 
MOV aStAack, SP 


SEQ 0069 


JE.P 


3639 
su 


$5025 


PP 


ce 


ytataiytytatyta ty 
Bavoul Zon 


SEbRSs 


aA 
8 


TUNA 
aa 
0000 92000 2000 


Oo 
ae 


235i ie Bie 6 Bie | 


Ree rr eh he 


See i = 


oO 
r= 
W 
< 
<= 
rT 


ping! ae re RK& DR _PRT3 
CZR6 


2S-JAN-78 


004737 
104024 


oOo = 
= i 
88 3 PARE 
—N 


pa be 


Ni 
S 


<£ 


: 
4 


ES Gof 


- 


ruru 
Ray 
S888 


ge 
£ 
N 
Ww 
N 


12:0 


025264 


MACY11 30A(10S2) 
T10 


005366 


005430 


005434 
005436 


es: 


nese a2 bee te PAGE 70 SEQ 0070 
ISR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

INC BYPCERR ;DONT DO CKCERR ROUTINE 

TY MSG8 ; INTERLOCKS TEST 

REE Se, HST Rata nO ep 0 Comrie 
IMP : :RET HERE FOR CONT-E 

TYPE MSG47 ; VERIFY DOOR T BE OPENED 
TYPE *MSG37 SS SPAC AEN DONE 

SR Pc, GETSP ; T E 

TYPE ,MSGES ;DEPRESS RUN/STOP SW TO ’STOP’ 
TY MSG EAVE IT OPEN 
TYPE pits  SEPReBS ope pRce BoA WHEN DONE 
MOV 81, RKMR (RS) + ELECT BORD. 1 

BIT DOOR, HMR2 

BEQ i . 

ERROR 44 ;DOOR STATUS BIT NOT CLEARED 
Hoy #<D.DRA!D.VV>,E.AO ;EXPECTED AO 

HOV @(D_ MHI. BRHM?D. CARTD ,E. Al 

«2 

JSR PC, CHKMSG ; CHECK ae ft Bl 

‘ tOto :8 MSG: chr 

ERROR a ERR myo: DRIVE UNLOADED 8 DOOR OPENED 
ERR ee ing Al ERROR 

RROR 4 : Bl ERROR 

PC, SUBCLR 

2RROR , ;CERR AFTER SCLR 

T MSG33 ;PRESS "RUN-STOP’ TO 'RUN’ 
Tee MECH :VERIFY DOES NOT START 

JSR Pc, GETSP ;GET SPACE FROM TTY 

JSR PC, GSTAT 
BIT 40. SPIN, 
ERROR 6 ;SPIN SET IN MSGAO 
Hoy A meas paacene ;EXPECTED MSG AO 

nov rf zHOHM!D.BRHM!D.CART> ,E.Al 

x i 
ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 


a 


ee 


*' 


sg ae + er RK6& DR _PRT3 
CZR6 


JE.P 2S-JAN-78 


wie 
nbatest * 


SeorneuReE 


PRPS RESETS 


WONT U CWO 


GRAPES Buu CaN 


nd ne ee ee 


is 


RRR 
Faw.t. J 


$562 
eee 


tatatatatal 


| 36 012737 

47 

42 613770 BBa080 
3649 3712 104074 


12:08 


MACY11 30A( 1052) 
T10 


ooo026 
005366 


005366 


005430 


005434 
005436 


3S: 


S$: 


78: 


25-JAN-78 12:16 PAGE 71 
INTERLOCKS TESTS 
é 0:0!0 

RR 

RR 

RROR 70 

RROR 71 
Jsr PC, SUBCLR 

OR 24 

TYPE ,MSGES 
TYP  MeeaS 
JSR Pc, GETSP 
MOV (RS) 
ney pa: RKMRt 
BIT 3 CART , HMR2 
BEQ 
ERROR 
JSR PC, SUBCLR 
ERROR 24 
TYPE ,MSG3S 
TPE *MSG37 
ISR beg sp 
ISR PC,GSTAT 
BIT #0. SPIN, 

Q 5 
ERROR 100 
TYP : 
Tee 
TYP *MSG7’ 
yore po, ge tsP 
CLR UNC 
MOV @CCLR, RKCS1(RS) 
CLR RKMRICRS) 
ISR PC, GSTAT 
Bro ie 

RoR 3 
MOV 
CLR 
MOV 
MOV ,E. 
JSR PC. CHKMSG 
ABR Bfard 
ERROR 74 


EB DSC!D.SPIN!0.DRDY!D.DRA>,E.A0 


SEQ 0071 


f MSGS SPECIFIED HERE 
fae a8 ERROR OR AFTER ATTEMPT TO START SPIN & DOOR OPEN 
ce RROR 


HeG 1 ERROR 
ine Bl ERROR 


;CERR AFTER SCLR 


;DEPRESS ’RUN-STOP’ SW TO STOP 
;REMOVE PACK & CLOSE DOOR 


;GET SPACE FROM TTY 
;SELECT WORD 1 


; CARTRIDGE STATUS BIT NOT RESET 


;CERR AFTER SCLR 


;PRESS *RUN-STOP’ TO ’RUN’ 
;VERIFY DOES NOT START 


;GET SPACE FROM TTY 


;SPIN SET IN MSG AD 


HINseRT Cp CARTRIDGE, "8797 UN’ SW. & CLOSE DOOR 
EMER SPP READY GOES ON 


;FOR VAL 


;SELECT WORD O 


;VV NOT CLEARED AFTER PACK RE-INSERTED 


;EXPECTED AD 


< Ms + ‘gtettataniscemathaiiammaaman nrtanatal ais 


iguhScs"SPecir tebe igs 


G AD ERROR AFTER PACK REINSERTED & HEADS LOADED 


soe ws + ame RK& DR _PRT3 
CZR6 


JE.P 


scour eevesee ye enyeeereeereeereennnennoreeegnneny & 


RE 


Ww 
N 
Nas bee 
Or 


GeRae HeReS 


88 
23 


: 


ae eh aee ee ee = 


tr 

oO 
UR — 
oonVvoe 


104075 
104076 
104077 


b1Se8 


2S-JAN-78 12:08 


boieee 


INTERLOCKS TESTS 


MACY11 — 2S-JAN-78 12:16 PAGE 72 


000000 
eee 


BAG>3> Beaade OOPS" 


104116 
032737 000100 

001001 

104027 
00S237 005322 
004737 026436 

104024 
bo8737 0007 
737 4446 

104017 
7 Oesoe4 


104080 


00004 
BBi700 


026436 
Bai7e8 
B7se88 


fet 


00S366 


005340 


001174 


000026 
005370 


RR 75 ;MSH BO ERROR 
ERROR 76 :MSG Al ERROR 
ERROR 77 :MSG B1 ERROR 
MOV @CCLR, RKCS1(RS) 
HOV SUNIT, ’ RK KCSE(RS) ;DRIVE # 
Hey Bc 1 Doth ;D0 PACK CMD & GET CONTR RDY 
ERROR :CONTR NOT RDY 
BIT so, We 
wal ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
‘ INC UNLD ;FOR VALID HALT 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
v HCS1 
JSR boi ate ;D0 UNLOAD CMD & GET CONTR READY 
ERROR 17 *NO RDY AFTER UNLD CMD 
Z R PC, TSTATN 
= OR ;NO ATTN AFTER UNLOAD CMD 
; mwit”6 6 mL La SSS 
; ATES UNIT SELECT PLUG TEST 
2 ay ei a IN eae et 
2H THE 7PRIVE fst NON EXiSTENT SRSSERTS 
+ Te ect T pues, Me Ba O INSERT BY SUC EING. 
iy fr naEkee His Bs te re ENE R TED. 
is THIS cig Edo OF THE TEST IS TERMINATED AT ANY TIME BY A CONT-E 
H OR To aprguemeneec ene eremmenenpeny sree rere 
Vv T I 
Hoy sR ER taPo rane ERA Bre 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
TYP ,MSG CT T 
TYPE neces swt Beh EXI aa EBace TO CONTINUE 
iB Ss ANH Ake On ZONT cE 
Re a sEVEN PARITY TO GET DSC & ATTN 
Bir a0: AR, HMR3 3 SEE IF PARITY SET 
ERROR 114 Baty Bit T SET AFTER SEL DRIVE CMD 
Hive) EVEN PARITY ISSUED. 


SEG 


0072 


CZR6JEO UNIBUS RK& DR PRT MACY11 30A(10S2) 2S5-JAN-78 12:16 PAGE 73 SEQ 007 
ESReTE CPt 2 fane73 13:08 sti UNIT SELECT PLUG TEST wales 
706 314106 040000 O0S366 2s: BIT #D.DSC,HMR2 ;SEE IF DSC SET 
707 © 14114 001004 BNE i$ 
7 Ul4116 1041 ERROR 107 ;DSC NOT SET AFTER SEL ORV WITH EVEN PARITY 
3710 oO141 2 00000 oo0000 1S: MOV SCCLR,RKCS1(RS) 
31 141 7 106 JSR ,GStaT 
71 141 737 O2eS0e4 JSR PC’ TSTATN 
3713 141 104113 ERROR 113 ;NO ATTN AFTER SEL DRV WITH EVEN PARITY 
3715 O14140 104401 7121 = TYPE ,MSG9 ;REMOVE UNIT SELECT PLUG 
3216 14144 10s os TYP afmez7 j DEPRESS SPACE WHEN DONE 
3712 14150 7 304 ISR TSP :GET SPACE 
3 § 014154 O12 1 ooo000 MOV #CCLR,RKCS1(RS) 
7 141 7 6106 JSR s 
37 3 141 737 OeS0e4 JSR PC; TSTATN ;RETURN HERE FOR SPACE 
37 O14 000401 BR 3$ 3NO ATTN 
37 3 O14174 104111 ERROR 111 iR MOVING UNIT SEL PLUG, DID NOT 
7 14176 2 000000 3s: MOV SCCLR, RKCS1(RS) _— 
355° Bt idos pisos ©106 JSR PC, GstaT 
3727 Bi4eig 032765 010000 000010 BIT aNED, RKCS2(RS) 
7 14 10411 ERROR 112 MOVING UNIT PLUG DID NOT 
ue RE SeR RONNEXISTENT DRIVE 
37 14222 6104401 3500 4$: TYPE »MSG67 Wee. LECT ALL OTHER PORTS 
7 14 LO4s01 0573 TYPE MSG37 i TY E bHEN DONE 
g 142 7 52 JSR Pc, GETSP ; 
37 01423 104401 940637 TYP ,MSG38 RT UNIT SELECT PLUGS | 
7 14 104401 0775 TYP *MSG39 cf try Se NISHE 
7 14 i 40 gueede TYP *MSGSS i DEPRES er a Cc T SELECT Bi uc 8 
3733 14 13746 1222 $UNIT,-(SP) 798 BE OUT 
374 14 1044 TYPOS ; 
3748 pt asEB Oot .BYTE 1 iB bieit 
3743 O14e6 000 “BYTE O :: SUPPRESS CEAD NG ZEROS 
37a biMsee 104401 001205 TYPE , SCRLF 
14 7 334 CLRB TKQSRT sCLEAR PREVIOUS INFO 
iy GIG URED? RET aR BIKES | 
14 0047 g33344 S$: ISR pC STK NT 
14 137 033 901160 MOVB KQSRT, STMP T CHAR IF THERE 
14 7 1 200 1160 BIC Hiatal STMPO T RID JUNK, IF ANY 
35 rt 4 omew BEG le NOTH TYPED YET 
37 4 O14 43 001160 oo000s acd stnPo, aS et IF CON ONT te 
755 014 14 BEQ :BR IF YES 
37 iste 3 001160 000003 ene te #3 SEE IFS CONT-C 
8 O14 7 3344 J TKINT 
3529 14 137 p33e02 IMP red el CF Boe Sal tp HALT 
3760 t3eq 104401 O40160 13$: TYPE MSG31 
3761 O14360 105037 033342 CLRB $TKQSRT 








3g _ RK6& DR_PRT3 
CZR6JE. 


| 
8 





seeenntenes 


then aco eo wD 
epee area aT as 
NOU LW O. 


2S-JAN-78 12:08 
014364 004737 033344 


: 


4404 000001 
wie 024446 
441 104117 
44, 0000 
5 ay ° 
44 
a 000010 
33 Bit 
444 000100 
oe fee 

4 Ole 000003 
44 737 Oe4446 


5 


Brin Sones HaeRe Bs 
B88 


ed ed ed ee ed ed ed ee ed ed el ed ed nd nd nd ed a ny Ot YT ed a En a eS ey nT ny eer ene ag 


104117 
S 010000 
1411 
04401 2246 
13746 le2e 
ue 104403 
7 001 
W274 4401 040775 
4600 06 
ptt a 004737 026436 
14606 104024 
14610 737 026106 
Bivei4 O9273 000100 
Ol46ee 001005 
O146e4 104401 041040 


MACY11 30A(10S2) 
Til 


oooo00 
005340 


000010 


005366 
oooco0 
00S340 


000000 
000010 
00S340 


000010 


005366 


No 
AW 


9S: 


10S: 


2S-JAN-78 
UNIT SELECT PLUG TEST 


JSR PC, STKINT 


C RO 
MOV eCCLR, RKCS 


1(RS) 

MOV RO, RKCS2 (RS) 
MOV aSELDRV Heel 
JSR nie 
ERROR ff $500 

IT #NED, RKCS2(RS) 

Q 8s 
INC RO 
CMP RO, #8. 
fe 
BR 
BIT #D. VV, HMR2 
BNE 


ae sie 
ZRROR 116 
MO ,-(SP) 


Vv 
"Bvt 
tree acme 
JSR PC, STKINT 
MOV #ctLe, CS1(RS) 
MOV SUNIT: TaRkCSe( RS ) 
MOV #SE 1 
JSR PC LORY HC 
ERROR 11? 

IT #NED, ,RKCS2(RS) 
Bea, MSGSS 
MOV $UNIT,-(SP) 
TYPOS 
.BYTE 1 
TYPE MSG39 
BR § 
ISR PC, SUBCLR 
ERROR 24 
ISR PC,GSTAT 
BIT #0/ VV, HMR 
BNE 
TYPE »MSG4O 


12:16 PAGE 74 


MOV BCCLR,RKCSI(RS) ’ 
MOV ace pes 


SEQ 0074 


;ORIVE NO. 


;00 SELORV CSTATUS) CMD & GET CONTR RDY 
:CONTR RDY NOT SET 


;SEE_IF UNIT SELECT PLUG INSERTED 
;& IF MATCH DRIVE NO IN CS2. BR IF YES 


;ALL_8 DRIVE NOS TRIED? 


;BR_IF_NO 
;ELSE RETURN 


; TYPE SAME INIT SELECT PLUG RDY ONCE 


;DRIVE ADDR 
;D0 PACK Nef 8 GET CONTR RDY 
IS SOE RO 
Y TYPEOUT 

aah Le ‘ 
ue VEL OCTAL CII 
1190 6 1 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 


;ENABLE KB INT 


© SELDRV (STATUS) CMD & GET CONTR RDY 
ONT NOT RDY AFTER SEL DRV CMD 


E_IF CORRECT PLUG FOR EXIT 


; METH gon IT SEL” T PLUG NO. 
a3 


CTYPE EOUT 


ii ro CT UNIT SEL PLUG # 
ASC 


;CERR AFTER SCLR 


;V¥ NOT SET, INSERT UNIT SELECT PLUG 


i eT CC Ce 


CZR6JEO UNIBUS RK& DR _PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 75 SEQ 0075 


CZREJE.P11 25-JAN-78 12:08 Til UNIT SELECT PLUG TEST 
381 014630 104401 040775 TYPE MSG39 ;DEPRESS CONT-E TO EXIT TEST 
14634 000620 BR és 
14638 LO44O ’ 3720 11S: TYP ,MSG7 ie CT CORRECT PORT ON OTHER DRIVES 
14642 1044C 0572 TYP mSGa7 oeeeee HME N DONE 
14646 004737 0304Se2 ISR PC, GE 
3864 0146S2 128: 
: a ae a” 
3 ; ATES PORT SELECTION TESTS 
3830 + ra OPERATOR I ASKED TO SWITCH TO THE WRONG PORT 
3 1 i HEN OR SELES 
38 i N BOTH C NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 
3834 oe SRKASARARAARARAAARSREAEKRERAARRSRAAAASRAAEAAARRRSRALRRRASRAARRAAAESRE 
3835 1NbSe p0000% tSt12: SCOPE 
14654 012737 oO00001 001174 MOV al STIMES ‘P94 1 ITERATION 
3 14662 012706 001100 MOV aSTACK, STORE STACK PTR 
3839 014666 004737 026436 JSR PC, SUBCLR 
3840 14672 104024 ERROR 24 ;CERR AFTER SCLR 
74 1 1 TY G19 T CTION TESTS 
3845 14840 1 OL 176 T Megas ibe eee EN TE TO EXIT OR SPACE BAR TO CONTINUE 
3844 014704 7 1 ISR Pc, CCSP Inout CONT-E_OR SPACE 
see 14710 137 015070 IMP 4§ RETURN HERE FOR CONT-E 
014714 1 1 1 TYPE MSGY ou TCH TQ.97 OTHER PORT 
14720 1 a ude? "MS 4 i —E WHEN DONE 
2 Bids 0047 JSR be Ge TSP Der RE 
147 004737 106 JSR PC, GSTAT , 
13539 032765 010000 o00010 BIT #NED, RKCS2(RS) 
14742 00100) 1S 
4 14744 1041 OR 122 ;NED NOT SET AFTER WRONG PORT SELECTED 
014 104401 041232 1S: TYPE ,MSG4e ;SELECT CORRECT PORT 
O14 04401 040573 TYPE *MSG37 :DEPRESS SPACE BAR WHEN DONE 
14 7 0304S2 JSR Pc, GETSP :GET SPACE 
14 004737 026436 JSR PC, SUBCLR 
teas 104 ERROR 24 ;CERR AFTER SCLR 
4 O14 765 010000 o00010 T #NED, RKCS2(R5) 
s BI77e BRices ne 
1 1041 ERROR | ;NED NOT CLEARED AFTER CORRECT PORT SELECTED 
3868 1 104401 13 2s: TY MSGus ;DESELECT BOTH PORTS 
1 1 os TYP MSG3 :DEPRESS SPACE BAR WHEN DONE 
© 01501 7 ISR PC, GETSP 
3695 D1 Baeves 810008 o00010 Bit = NED RRCS2CRS) 
3873 015030 001001 BNE 3s. 


Jan-78 12 
Pil 2S-JAN-78 12:08 SELECTION TESTS 


CZREJEO UNIBUS RK PRT MACY11 30A(10S2) -JAN-78 12:16 PAGE 76 7 
EReIE. Tie PORT erat 
74 O15032@ 104133 ERROR 133 ;NED NOT SET AFTER BOTH PORTS DESELECTED 


015034 104401 041340 3$: TYPE , MSGY4 ; SELECT CORRECT PORT | 


015040 1O44OL 040573 TYPE MSG37 ‘DEPRESS SPACE BAR WHEN DONE 
015044 004737 0304Se ISR Pc, GETSP 
01S0S0 004737 026436 JSR PC, SUBCLR 
015054 104024 ERROR 24 ;CERR AFTER SCLR 
15056 S 010000 o00010 BIT #NED, RKCS2 RS) 
61064 pae csi BEQ TST13 ;;GOTO NEXT TEST 
15066 ERROR 130 ‘WED NOT CLEARED AFTER CORRECT PORT SELECTED 
1 2 ooo000 4s: MOV @CCLR, RKCS1(RS) 
1 bois? este JSR PC. GSTAT 
i 10 765 010000 000010 BIT BNED, RKCS2(RS) os enet toa 
1511 mi 041370 BeBe MSG4S ASRRE CT PORT NOT SELECTED, TRY AGAIN 
B} : WHEN DONE 
151 


este ioe pc, GE TSP ;DEPRESS SPACE BAR 
4 


SCD eeeretnrehehit ici vit i: WEBER 
oreo 


g2 SAKASSKRAAHSSKSASEKSRERASSSKSSRALRARRRARERARRSERRRAERRAH ERR ERE SERS 
j ATES 13 AC LOW DETECTION PART 1 
i A PRELIM NARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED. 
tae BATT RY RETRACT WILL TESTED LATER. 
is 0c T T D DIRECTLY SINCE IT REQUIRES SECTOR PULSES 
i# : REF RE TH mii IcATOR CHECKED obs NON-EXISTENT DRIVE (NED) 
i APTER bouer UP, V5LUNE VALIO IS CHECKED TO BE CLEARED. 
oe SHFSASKRSRSAEAAKAASSKSRKSARAKASRRARRARAARKERERRRSRRAERARRSRRRRRERE 
i B11 32 Ofe7a? gp0001 001174 1S113: Roy. ok. STI DO 1 ITERATION 
3312 151 012706 001100 MOV SStack SP :REST STK PTR 
14 oO15144 
i BES 
3917 O151S2 104401 037531 TYPE ,MSG2e1 ;AC Low TEST 
3318 015156 041765 TYPE *mMSGS2 5 CON seo BYPASS Test 
20 0151 ? 1 SR PC.CCSP i ONPUT CONTSE OR SPAC 
3457 BiS IEE BBdi preds TRE ft + AP TURN HERE IP CONTCE 
g 151 104401 041521 TYPE ,MSG49 : TURN OFF AC(RET HERE IF SPACE) 
1 4 CLR TEMP: 
18208 13737 77 005376 12s: HOV #-1 ; MP1 ;SETUP TIMEOUT 
1521 7 106 18: JSR Pc, &STAT 
3927 o15214 032732 100000 005340 BIT #CERR,HCS1 
3a5 a58 0152 pope 349 005376 DEC MP1 


| 
| 
Towos4 rete ERfor 84° SUBCLA ;CERR AFTER SCLR 


CZR6JEO UNIBUS RK& DR PRT3 
CZR6JE.P11 2S-JAN-78 12:08 


SERRAUERS Run asneoSa aaa sees suatnoeEee 


zee ties 

es 

3974 S44 

33 S44, 

oe S442 
78 

39793 

3980 

a 

3983 

3984 

3985 o1s4#4e 





ooooo4 


sae 


001432 
00000 
1 

005376 


o30482 


026436 


MACY11 30A(10S2) 
T13 


005366 


005370 
00S366 
ooo0000 
000010 
005340 


005366 


SS: 


6S: 


7$: 


64S: 
10S: 


kr 
:% 
5% 
S 


2S-JAN-78 12:16 PAGE 77 
AC LOW DETECTION PART 1 


ASA RES 


TEMP 

TEMPS, #2 ;SEE IF GONE THRU 2 TIMES 

4 ‘BE aR NOt DETECTED BEFORE TIMEOUT 
5 TEMP1 

BCCLR,RKCS1 (RS) 

ONES: RKCS2(RS) 

I MP1 

1 ;NED NOT SET BEFORE TIMEOUT 
MSGSO ;SWIT cH AC BACK ON 


Reece Hes BCE AFTER READY ON 


Pc, GETSP 


PC CLR 
6g" U8 . ;CERR AFTER SCLR 


es BR IN Y LOADED 
141 ;ORV NOT RDY AFTER AC UP 


UNLD ;FOR VALIO HALT 
leat diaiais 


1 ;ACLO NOT RESET AFTER POWER UP 
#0. VV, HNRE 

153 ;VV NOT RESET AFTER POWER UP 

#CCLR, RKCS1(RS) 

SUNTT, RKCSECRS) ;DRIVE # 

#PACK'HCS1 

Pc, DOCMD ;00 PACK CMD & GET CONTR RDY 

116 :CONTR NOT RDY 

#0 .WV, HMR2 

27 ;VOLUME VALID NOT SET AFTER PACK CMD 


ee ee ee PR ee 
4 


HECK NXF LO 


ULT K WITH VOLUME VALID RE 


en ee 


ieee 


T VERIFIES I NONE CUTABLE FUNCTION (NXF) > DETECTED 


SEQ 0077 


_———— ee... - 


‘eee 


CZR6JEO UNIBUS RK& DR PRT3 
2S-JAN-78 12:08 


CZR6JE.P11 


i 


SEE eeeeernaeea 


oo 
r= 


feececcece 
555555500 
Ia fe bee bee bo he be bh bee 
ONO £Ww-O 
0000 
on | coed Sel ae coe ol 


B 


££ 
for 
Livro 
pal 
o 
he 
£ 


O00 O000 00 O000 20000 O00 


eee i FF Fe fhe pepe 


pa 


Bee Soe 582 


& 


ws 


Rane 22 


arty) 
Re on 


o 


ae fon? Be 


o 


Sf 


biB7b6 


004737 
104131 


013737 
004737 
104132 


000001 
001100 


026436 


010000 
040032 


016070 
000100 


016070 
026436 


p00? 


024446 


001432 
0eS515e 


MACY11 30A(10S2) 
T14 


001174 


005366 


005340 


o00S400 


64S: 


005366 


O0S366 1S: 


000020 2S: 
005340 


005376 


2S-JAN-78 


CHECK NXF LOGIC 


#1, STIMES 
aSTACK, SP 


PC, SUBCLR 
24 


#0.SPIN, HMR2 


64S 
»MSGe9 


#SRTSPL,HCS1 
PC,D 


143 Ocho 


T100, TEMP2 
PC, FATTI 
144 

UNLD 

UNLD 


PC, SUBCLR 
e4 


PC, GSTAT 
#0: VV, HMR2 


1$ 

177 

$ 

#0. VV, HMR2 
es 
53° 
6G SUSCL 
#1 RKDC (RS) 
aStEK 


PC bo OM n> 


TSOOOO, TEMP1 
PCF 


PC aTt2 


12:16 PAGE 78 


; 1 ITERATION 

‘RESTORE STACK PTR 

;CERR AFTER SCLR 

SEE IF SPINDLE ALREADY ON 

‘PLEASE WAIT, HEADS BEING LOADED 

;00 

:CONTR RDY NOT SET AFTER CMD 
TTN 

TTN AFTER CMD 


;FOR VALID HALT 


;CERR AFTER SCLR 
;NXF TEST 

; PRESS CONT- 
; INPUT CONT-E OR SPACE 
;RETURN HERE FOR CONT-E 


;REMOVE UNIT SELECT PLUG TO CLEAR VV 
PERE Beare e WHEN DONE 


;VV_NOT CLEARED AFTER UNIT SEL PLUG 
;EXIT TEST 


;VV set AFTER HEADS LOADED 
;EXIT TEST 


;CERR AFTER SCLR 


;00 SEEK CMD & GET CONTR READY 
NO RDY AFTER SEEK CMD 


;FIND_A 
:NO ATTN "AFTER SEEK CMD 


stra? SPINDLE _CMD_& GET CONTR RDY 


TO EXIT OR SPACE TO CONTINUE 


SEQ 0078 | 


CZREJEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2@5-JAN-78 12:16 PAGE dy SEQ 0079 
CZR6JE.P11 2S-JAN-78 12:08 T14 CHECK NXF LOGIC 


4 1 7 000400 005370 BIT #0. NXF , HMR3 

4 015714 1 BNE 3$ 
404S O01 7b 1041 ERROR 156 ;NXF_NOT SET AFTER SEEK WITH vv=0 
doug 015720 000137 016070 IMP 7§ :EXIT TEST 
4 1 9327 000200 005370 3S: BIT ° &#D.FLT,HMR3 

157. 1 BNE § 
4 157 1081 ERROR 72 ;NXF_DID NOT SET FAULT 
4 157 137 016070 IMP g :EXIT TEST 
4 1574 012737 0240 005430 4S: MOV a< -DSC#D. SPIN! p- -DRDY!D.DRA>,E.AO ;EXPECTED AO 
1 127 00 005432 MOV #<D.NXF'D-FLT>.—.B0 

40SS 18 016737 001720 005434 V #<0. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP> ,E.Al 
wO56 15764 01 000001 005436 MOV #1,€.B1 
4 1 737 O25264 JSR PC, CHKMSG ; CHECK MSGS AD Al, Ble 
upeS 157 ORD T.A2!T.B2!0 5 MSGS Spec IFtE 
4060 01 1041 ERR 160 ao ERROR SEEK ait F veo 
WOES Ot ib4iee ERROR 162 he Al ERROR 
4063 O16006 104163 ERROR 163 ?MSG B1 ERROR 
4064 16016 9057 7 001400 TST CYLADD 
406S 016014 1401 Q S$ 
4ObG 16016 104157 ERROR 157 ;HEADS MOVED WITH SEEK & DXF 
4068 016020 004737 026436 Ss: JSR PC, SUBCLR 
W0g8 016024 104024 ERROR 24 ;CERR AFTER SCLR 
407 1 1276' oo00000 MOV #CCLR,RKCS1(RS) 
40 Step SS Bt see bores 000010 MOV SUNIT,RKCS2(RS) ;DRIVE # 
4073 O16042 012737 906003 005340 MOV #PACK > HCS1 
wor ci 004737 4446 JSR Pc, DOCMD 300 PACK cn & GET CONTR RDY 
4076 16054 104116 ERROR 116 :CONTR NOT RDY 
4077 O16056 737 000 005366 T #0. VV, HMR2 
4078 BT EBES bai 08i _ BNE ees : 
4079 O16066 104027 ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
dost B1e070 oso: 
4082 . 
4083 $ See Eee AD h SAVE BAD SECTOR INFO B TYPE PACK SERIAL & 
dogs j ATE READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
4086 i THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO7), TRACK 2 CAN BE READ. 
4087 $a THIS AREA CONTAINS BAD SECTOR INFOR WHICH 1S WRETTEN BY THE 
4088 : a FACTORY RING MANE NFOR (BSE) WILL BE STORED 
4088 i AT THIS MASK FUTU CREAOER OR DATA ERROR PRINTOUTS. 
4091 i SECT 2,4,6,8 TA DENTIC NFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC 
i03e is SEeT ORE Pant 6, 12%1 Fae ete. 45 ADEN S toeNT Sche INFO FOR 22 SECTOR SOFTWARE DETECTED 
4094 ta F ANNOT READ F Pel RF ING THE BSE INFO 
4095 1 i if Boe in TERM INE NED T THAT BA BC rSNMENT CA IS USED, 
4096 + i A neeshee WILL BE PED I 
4097 i FUTURE FORMAT AND READ OWATTE TESTS tant BE BYPASSED. 





CO? 
CEAe EO ees ee eee is:08 OYE E SPRL OSe Re Cave BAD SECTOR INFO & TYPE PACK SERIAL # =8 Gos 


JE 
4098 5% THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRITING 
41 : i THE PRCK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
4102 es KREKKLY VELARDE RKRERRARURKALKAK EEK EKER E DALEK ER ERE E RE EK EH 
aios Blgo7e yee 1 001174 STs: Ov. RL STINE DO 1 ITERATION 
Wigs Bt 1 pissae rete MOV satack S Apes dpe TK PTR 
aioe 016104 004737 026436 ISR PC, SUBCLR 
4108 O1611 104024 ERROR e4 ; CERR AFTER SCLR 
4110 Olelie Oons03? pbos4oe ctR TEMP Rees CECT OR HARD TECTED TABLE 
nites 10255 BEET oR OP PHARE DETECTED TABLE 
4113 16128 12737 322 4O4 MOV 22H, TEMP4Y STORE 22 SECTOR HARDWARE BSE ADDR. 
4114 O161 1 ges pita oo4 MOV TEMPY , RKBA(RS) 
4115 016136 O1 1 406 MOV #1000; TEMPS ; TRACK 2, SECTOR O 
4116 16144 Bt S965 005406 o00006 MOV TEMPS ; RKDACRS) 
1 161 1 012654 00020 1S: MOV LC, RKDC(RS) sLAST C 
ig BLE ie BLzres 17280 pO000 nov b-256. ,RKWC(RS) > LOAD CT 
s? pteiss pies ae JSR BoD AT ChD ;D0 READ DATA CMD & GET CONTR RDY 
“3 tbeog LO4eES RROR pet 5 NO Y AFTER READ DATA CMD 
i 025106 SR GSTAT 'GET FRESH DATA 
24 016206 1 005340 BIT #CERR,HCS1 
16214 14 BEQ Bs 
16216 1 ERROR 227 ;CERR AFTER READ DATA CMD 
58 ie ee 005430 Moy #<0!D.SPIN!D.DRDY!D. Vv! DRA» ,£ AD ;EXPECTED MSG AO 
30 Ol6e2 127 1720 005434 MOV #<D. SPOK!D.CART!D. 'D.BRHM!D.SSP>,£.Al ;EXPECTED Al 
31 1 0 1 005436 nov al E.Bl eee E eTED' NSG Bl 
ffs wn fe en vy 
at4, BeeudE Y  §5°E:B5 inee 1B FOR EXPECTED Nec 85 


come iOfuS —ETSGS EPECIT AEB EERE cn pata oxo 
RROR :M RROR 
fem st Gf ERaae 
ERROR at = ;CERR AFTER SUBCLR 


Sees & 


OOOOOOOOO0OO0OO0000 F8000000 
bb hh he be 
-_ 
| an 
N 
N 
£ 
y 


ODD VI LW HO Dow 


1 
12 005400 INC TEMP2 
057 o00s4o00 oo000s CMP genre, 8S ;READ ALL 5 SECTORS? 
i. ia 
pase ate Enron 485 ;CANT READ SECTORS 0,2,4,6,8 
6340 167 es: RROR 7 ;CANT READ SECTORS 10,12,14,16,18,20 
e342 O004ie g 3 <*, 


Pee eee eee ee ee ee 
ae ee bn ae be ae ae be ems fe Boe ae pean Pee ems be Bae fem ne me Pe ae me Pee me an Pee 


uw 
Ww 


07 


a) gious PEE Bshba cae) font Sikiat & 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S52) 25-JAN-78 12:16 PAGE 61 SEQ 0081 
CZR6JE.P11 25-JAN-78 12:08 TiS READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
aise 016344 1376 o0s4o4 oo0004 SS: MOV TEMP4, RKBA(RS) jRESTORE TABLE 8 ADDR 
41 OLE 360 
ite Be 
sigg BIS? Gppegr clwy = 3: FR EEF esr 
416 1 002330 8s: ST BoEe +6 io aah TOES vee 
41 1 1 BEQ Fopth CORFRIDGE 
41 16 104401 042326 TYPE MSGS6 OPT ONNENT CARTRIDGE USED 
4164 Oi 410 001474 INC BSERR *SET BSE ERROR FLAG 
dies 16414 BR 10: 
4167 y é 9S: 
1h SS RE SE om 
aioe Bleue Oe aoe 4O4 Su STORE 22 SECTOR SOFTWARE BSE ADDR 
178 Bi eas Mea BosHog Boeab4 MOV ior 4 
ul7g 016466 nti aeates IMP i§ ; REPEAT 
aig 016472 005737 o01216 10S: TST SPASS 
41 

4180 016476 001014 BNE ;TYPE CART # ONLY ON 1’ST PASS 

183 B1g804 

41 16510 744 JSR PC, $0820 ;CONVERT DBL BINARY WORD TO OCTAL 

di Bieezs o aH ite SR rea *TYPE SERIAL # 

418 16 1 1 1582 TYPE *SCRLF 

4188 016530 004737 026436 13S: JSR PC, SUBCLR 

41 C16S34 104024 ERROR 24 iC RR_AFTER SCLR 

41 : tRETURN TO CYL O 

digs Giese pare? GuGRHZ oso oe AETESHISS! 0 sre cop 0 oer gone nenov 

138 BiBedd 084734 2RROR SI : Rg RBY AFTER SeEK CMD 

4 T T 

iia BIBER BLG797 BBLIEE 005976 vex ESPRPAIEM!GRIUP T HEOT 

4138 16564 1041 ROR :NO ATTN AFTER SEEK CMD 
4200 016566 032737 100000 005340 IT #CERR,HCS1 
weer BIEeS RIG f 
4808 Biges? 84296 Ror i8 ;CERR AFTER SEEK CMD 
4204 016600 64S: 
uSDE 
4 st : ere ere ae 
4 i ATE WRITE LOCK TEST 


| 
| 
000002 005406 ADD 82, TEMPS : SETUP SECTORS FROM LAST 
00S406 000006 HOV TEMPS,RKDACRS) 
1 
4209 1 a 


cere reo, ees RK6& DR PRT3 
CZR6 


JE.P 2S-JAN-78 12:08 
4210 
4ell 
4el 
4el 
4214 
4215 
4 18 1 
te Bless bleve 
i§ tesa 5737 
12 


££ 

rr 

Re 
oo 
ba 


Af 
O000 O0000 O00000 oO000 
CCOn FCOOCrn ca 
2089 Roses SoseD BEee oe 
ages 


Re eh hh bpp 


0047. 
= 
Se pire gure 
: iG 
Ses BIESS AeaHS 
ae flee Heer 
ee 2 
: 47 00S037 
use 016744 004737 
: 1 012765 
4 


Sa 
ee 


= 
gag 


i 

17014 
uBe2 1701 32737 
4e6 170. 1401 
4e64 O01703e 104201 
4e6S 017034 


PTT TTT TT P £ftctrcrce 
y furururoru 


MACY11 7 aimammet 2S-JAN-78 12:16 PAGE 62 SEQ 0082 


001174 


005366 


005366 


000004 
000002 


oooo0& 


005340 


005340 


T16 WRITE LOCK TEST 


3% THIS S TEST VERIF ES THAT DATA WRITTEN NONE 8 SECTOR CANNOT BE 
1 i ir'as WRITE re SWITCH BEEN E NABLED. 
a LS0_ CHECK HAT WRITE PROTECT THe S EFFECT ONLY AT 
i 5 BOURDR ES WHEN bot NG CONTINUOUS WRITING ON CYL 0, HEAD O 
Hs essessanagssssseeseeseeseseneeeesossnnnssssesssesussoseossees 
“MOV #1, STIME TERATION 
MOV BStack SP ape, bre ERACk PTR 
tT BSERR SEE IF ALIGN CART 
MP 12 ‘BRI et ENST TEST 
1S$: JSR PC, SUBCLR 
ERROR 24’ ;CERR AFTER SCLR 
TYPE mSG24 ;WRITE LOCK TE 
TYPE *MSGS2 PRESS CONT-E 35 EXIT OR SPACE TO CONTINUE 
ISR Pg ,ccsP i ABET CONT-E OR SPACE 
IMP 1 TURN HERE IF CONT-E 
JSR Pc, GSTAT 
Bit WRL, HMR2 ;SEE IF a WRITE LOCK IS ON 
1S: TYPE : WRITE LOCK 
TYPE tease iB ACE WHEN DONE 
ISR Pc, GETSP :GET SPACE 
JSR PC, GSTAT 
BIT 90. L,HMR2 ;SEE IF WRITE LOCK IS OFF 
ERROR 1 fs) ;WRITE LOCK NOT DISABLED | ‘ 
2s: CLR TOCYL ; SETUP 
CLR CALADD : 
CLR HEAD ‘FILL HEADER TABLE 
CLR FORMAT ? ROUTINE 
16S: JSR PC, FHDTAB ;BUILD STD 22 SECTOR HEADER TABLE 
MOV sHDTAB RKBACRS) 
HOV, 8-66. , RKWC(RS) 
MOV HEAD,RKDA(RS)  ;HEAD ADDR 
SWAB HEAD 
MOV pi AD> ,HCS1 
JSR BaTCHO F ;D0 DATA X FOR CMD & GET CONTR RDY 
ERROR :NO_RDY AFTER WRITE HEADER CMD 
ISR Owns :GET FRESH STATUS 
BIT oe HCS1 
ia ERROR 201 ;CERR AFTER WRITE HEADER CMD 


CZR6JEO UNIBUS RK& DR _PRT3 MACY11 30A(1052) @S-JAN-78 12:16 PAGE 83 SEQ 0083 
CZRBJE.P11 T16 






E.P 25-JAN-78 12:08 WRITE LOCK TEST 
y 
426 
webs 17034 905237 001442 INC HEAD 
4 1 O23 7 001442 o00003 CMP HEAD, #3 ;SEE_ IF ALL HEADS DONE 
4 70 1 $556 BNE 16$ :BR IF NO 
4 1 737 026436 JSR PC, SUBCLR 
4 75 B12 829 rita ERROR 24 ;CERR AFTER SCLR 
4275 Ol po1422 CLR SECTOR 
ar Bt BeS nee Dbi4e2 OOOODE 14S: MOV SECTOR, RKDACRS) 
4558 017070 012765 001456 o00004 MOV #DATAO,RKBA(RS) ;WRITE ALL 0’S 
4279 017076 76 000010 BIS aBar, RKCS2 (RS) 
4 : 17104 Ol i oo000e MOV 8-256. ,RKWC(RS) ;CYL 0, TRK 0, SECTOR O 
4282 017112 012737 O00023 005340 MOV #<WRDATA> , HCS1 
4 17186 7 024504 JSR PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
USee Ot7iSe OBdoa> 026106 ERROR Bd cstat RO eH STATUS © ONTA CHO 
4286 15158 032737 100000 005340 BIT #CERR,HCS1 ‘ 
4 7 017140 OO0146S BEQ 68S ;BR IF NO ERRORS i 
1283 017142 ae o00200 005354 BIT #BSE, HER ; SEE IF BAD SECTOR FLAG 
429 171 004737 030056 R PC. TRUERR : se SEE IF SECTOR LISTED IN BSE TABLE 
os piste BR 67% BE URN HERE if NO 
4294 017160 005237 001422 INC SECTOR ;RETURN HERE IF YES 
dege 17168 0237 001422 o00012 CMP SECTOR, #10. j ARE a ONSEC. SECTORS BAD 
4 17174 104 ERROR 40 I BBORTING Test DETECTED 10 BAD SECTORS 
4 17176 137 021450 IMP 128 :BYPASS TES 
4300 017202 01271 0 65S: MOV #CCLR,RKCS1(RS) ; TRY ANOTHER SECTOR 
430 017210 efter nega — IMP 14§ ‘ 
4 017214 104012 66S: ERROR 12 ;CERR WITH WRITE DATA CMD 
4305 17 16 O1 O1 340 005430 Mov B<BE0-SPINED. DPOF EREL IBS Rac” .AO ;EXPECTED MSG AD 
4 17 So 1720 005434 MOV #<D. SPOK!D.CART!D. 'D. ‘ >,E.Al  ;EXPECTED Al 
4 : 36 00 005436 nov #1,£.81 eerie EXPECTED MSG B1 
4310 017; 1 oos442 MOV #2,£.B2 :MSG OR CTED MSG B2 
312 017256 155 7 OOS446 MOV 33° 6.63 :MSG B FOR CTED MSG B3 
431 17264 737 o25264 ISR PC, CHKMSG :CHECK MSGS AO, BO, Al, Bl 
313 017870 .WORD T.Ae!T.B2!0 . -& MSGS BPECIFTED HERE 
4315 017272 1040 ERROR iis a0 RROR AFTER WRITE DATA CMD 
4316 17274 1 RROR 33 : RROR 
wale Bl7se8 | eon Be a ae 
4319 Ni7302 104 3 TYPE MSG72 i BORTING BALANCE OF TESTS 
43 017306 0001 0237 IMP $EOP 
4321 0617312 104047 67S: ERROR 47 ;BAD SECTOR NOT LISTED IN TABLE 


ESRETE: PY) 28 <Gane7e 18:08 


4323 


017314 


4 
N“N 


Beasceasaee MIGRS 8 


OO000000000 
ee ee 


Ss 
2 
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GERIRS Sataeee 


hh hh he 


Oo0000000 8000000 


104031 
104060 
104032 


0137 


aie 
es} 
iar 
001002 


1 
104115 


026436 


044003 
023374 


026436 


bubS?4 


0304Se 


04000 


MACY11 7) ‘taeal 


000000 
005366 


68$: 


69S: 


70S: 
3S: 


-JAN-78 €: 16 PAGE 84 
WRITE LOCK TE 


<oOo+40420 
2 


Takes ag 


be SUSCLR 
24 ;CERR AFTER SCLR 


#DATAD, RKBACRS) 
sal RKCSe (RS) 


afae ;EXPECTED WORD FOR TRUERR TYPEOUT 
BATAO, Ae ne 


B<WRTCHK> , HCSI 
PC, DATCMD ;D0 DATA X FOR CMD & GET CONTR RDY 
:NO_RDY AFTER WRITE CHECK CMD 


PC. GSTAT :GET FRESH STATUS 
#cERR,HCS1 

#WCE , HCS2 ;SEE IF WRITE CHECK ERROR 
KDB(RS) ,WD1 B PR NTOUT 

& ; ARE OBE TER HR 

70S 
22 ;CERR AFTER WRITE CHECK CMD 


a<Oe D.SPIN!D. DROY!D 
#<D. SPOK!D. wank nasi; 


Bigot Babel tebe 


PELTED Fis "Ban ;EXPECTED MSG AD 


ae a ;EXPECTED Al 
ED ASG ta! 


#3,£.83 Mee 18 FOR EXPECTED MSG B3 
PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
T.A2!T.B2!0 & MSGS SPECIFIED 

7 :HSG ag E OR AFTE’ WRITE CHECK CMD 
1 MSH 
60 :MSG Al ERROR 
32 mee RROR 

MSG72 BALANCE OF TESTS 
ENDRV 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
4 E WRITE LOCK 

Meca? PRESS SPACE. WHEN DONE 
bc. GETSP 

BCCLA RK RKCS1(R5) 

a0: ORL HMRe ;SEE IF WRITE LOCK IS ON 

11S ;WRITE LOCK NOT ENABLED 


SEQ o084 


07 


CZR6JEO UNIBUS RK& OR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 8S ‘ SEQ oo8s 
CZR6JE.P11 2S-JAN-78 12:08 Tlb WRITE LOCK TEST 

378 017576 000754 BR 3$ 

017600 012765 001462 4$: MOV aDATAL, RKBACRS) ;ATTEMPT TO WRITE ALL 1’S WITH WRITE LOCK SET 

4 i Ol 65 000020 at BIS (RS) a neeh i tet 

Ser Ea a 

4 024504 hay Mon SaRR TAS ITE_DATA CMD & GET CONTR RDY 

1388 Bi Seas 984i ERBor "Se iRa HR ABT Roe 

4388 017644 004737 026106 JsRe PC, GSTAT ;GET FRESH STATUS 

4389 17660 ated 100000 005340 IT aceRR, HCS1 

439 17660 104207 ERROR ba3 ;CERR NOT SET AFTER WRITE WITH WRL SET 

1332 1 004000 005370 17S: BIT #0.WLE, HMR3 ; CHECK WRITE LOCK ERROR SET 

4 176 1001 BNE Eg >BR it SE 

4394 0176 104121 ERROR i121 SWRI E LOCK ERROR NOT SET 

4395 ‘AFTER WRITE DATA WITH MATTE LOCK SET 

4 17674 0127 4 4 Ss: Mov LG ANP 'D.DROY!D.VV!D.DRA>,E.AO ;EXP AO 

2 108 HE Z” 8 

4 737 1 434 MOV ARt?D 1D. BRHM!D.SSP>,E. a 

4399 017716 012737 O00001 005436 MOV + 

i 017724 004737 025264 ISR be. CHKMSG ;CHECK MSGS AD Bl 

a05 Biers eReck ie ie fst 8B PRAGA FeaGd OPHet fe WITH WRITE LOCK SET 

auoe 13530 1DuiSe ERROR eG al ERROR 

108 Bizsae | iButse RROR ise ;MSG B 

44 017742 737 026436 JSR PC, SUBCLR 

4408 017746 104024 ERROR 24 ;CERR AFTER SCLR 

4411 Ol MOV ry (RS) CK THAT pone OF ORIG DATA 

sls Elzres Gravee Gos BSB RR MEER) Pe REE or warre uzty onz7e hock se 

4414 558 6137 001 Be ace MOV bates obs TRS FFE SE Pea FRUeRR TY ebut 

wie 13765 006 MOV DACRS) 

4417 O20006 2737 000031 005340 MOV &<WRTCHK> ,HCS1 

441 4 7 504 PC,DATCMD’ ;D0 T CONTR RDY 

a418 BS8as¢ ois sal ZRROR is’ ; 8 Rov erTER WRITE. CHECK CMD 

4420 004737 026106 JSR PC, GSTAT CET FRESH STATU 

44 3 Bsbass Z 100000 005340 Bio HCS1 r 

44 7 o40000 005342 BIT BliCE , HCS2 ;SEE IF WRITE CHECK ERROR 

4424 QO20044 001405 BEQ 71§ 

4425 O20046 016537 O00024 001434 MOV RKDB(RS),WD1 ;ACTUAL_WORD FOR PRINTOUT 

44 ge0oe4 0 RROR te *WCE AFTER WRITE CMD 

“4 R 2s 

wie8 020060 104022 71S: ERROR 22 “  ;CERR AFTER WRITE CHECK CMD 

4431 O20062 012737 010340 005430 MOV #<O!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AD ;EXPECTED MSG AD 

4432 020070 005037 005432 CLR .B0 -EX 

4433 020074 012737 001720 o0S434 MOV #°D.SPOK!D.CART!0.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 


07 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 86 SEQ o0e6 
JE.Pil 25-JAN-78 12:08 T16 WRITE LOCK TEST 
4434 020102 012737 O00001 005436 MOV #1,£.81 ;MSG_ID FOR EXPECTED MSG 81 
4435 020110 7 4 CLR E.Ae tEXPECTED MS 
44 peo 14 12737 oos44e2 MOV #2,£.B2 :MSG ID FOR EXPECTED MSG Be 
44 0201 1 OOS446 MOV #3,£.83 :MSG ID FOR CTED MSG 83 
es 1 737 025264 ISR PC, CHKMSG ;CHECK MSGS AO aL B1 
4440 1 WORD T.Ac!'T.B2!0 jb MSGS cI tep HERE 
444 1 1 ERROR ? ;MSG AD AFTER WRITE CHECK CMD 
444, 140 1 RROR ?MSH BO 
444 142 1 RROR :MSG Al ERROR 
4444 144 1040 ERROR :MSG B1 ERROR 
4 146 401 044003 TYPE MSG72 :ABORTING BALANCE OF TESTS 
we 1 1 023374 IMP ENORV 
ane 020156 72s: 
44S0 9201 737 026436 6S: ISR PC, SUBCLR 
“ 1 1 104024 ERROR 24 ;CERR AFTER SCLR 
1 1 1 T ,MSG ; WRITE LOCK 
ey BGISG JONgL BueDss Nee fea R809 Bot UNE Boke 
4 174 0047 S2 JSR Pc, GETSP :GET SPACE 
44 737 G26 106 JSR PC; GSTAT 
u 000 005366 BIT AO! GR MRE ;SEE IF WRITE LOCK OFF 
44 lz 1361 BNE 6$ 
445 ; TEST FOR WRITE LOCK AT SECTOR BOUNDRIES 
4 :FOR TINUOUS WRITING ON CYL 0, TRACK 0,1,2 


iF ON 
2157 TYPE 4 :SET WRITE LOCK 
7430 001160 MOV +2800, STMPO 
A MPI ;BITO=O0:WRITE O'S; BITO=1;WRITE 1’°S 


7$: JSR PC, SUBCLR 
;CERR AFTER SCLR 


BIT #8170, STHPI 
BNE 8 ;BR_IF WRITING 1’°S 
MOV SDATAD, RKBACRS) :SETUP ALL O’S 

BR 9 


gs: MOV SDATAL RKBACRS) ;SETUP ALL 1’S 
Qs: BIS al, CS2(RS) 
MOV #-63. #256. , RKWC(RS) -WRITE TRACK 0,1,2 63 SECTORS 

CLR RKDACRS) ;BEGIN AT TRACK AND SEC 6 

MOV TOCYL,,.RKDC(RS) 

MOV sWROATA,HCS1 

JSR PC, DATCMD ;D0 WRITE DATA CMD & GET CONTR RDY 

ERROR 11 :CONTR NOT RDY 

BIT #CERR,HCS1 

NE $ 

EC THPO 

ERROR 204 NOT BY TIMEOUT 





onw 

mem 
++ 

=m 


IHEN DONE 


gene zeo 


CZR6J 


4490 
4491 
44 


44 
4494 
44 


SETRRIES 


+ FeLSELSE 


Sis 


££ 
un 
he ee 


WONT UL Wr 


iow 


Pil 


UNIBUS RK 


020364 004737 
70 000137 


Be 


tee 
ae 


00$337 
013765 


oe fanc7e" 12: :08 


030452 
021450 


001162 
000200 


MACY11 30A( 1052) 
T16 


005354 


000012 


005370 


001164 
001166 


000001 


001025 


001024 


000400 
000° 


001000 
oooocs 


ooocde& 


10$: 
138: 


21S: 


118: 


22S: 


23S: 


24s: 


ess: 


18S: 


19S: 


25-JAN-78 
WRITE LOCK TEST 

ISR PC, GETSP 
JMP 126 

INC STMP1 

IT #BSE, HER 
BEQ 21$ 

INC FOC YL 

Cc T9C¥L, #10. 
ERROR 6 

IMP ee 
BIT #D.WLE, HRS 
ERROR 205 

TYPE ,MSGS3 

TYPE MSG37 

JSR Pc, GETSP 
MOV HDA, STMP2 
MOV HDA, STMPS 
CMP TMP2, #1 
BNE 2s 

TYPE MSG100 
BR 65 

TST STMP2 

BNE 235 

TYPE MSG100 
IMP 6$ 
CMP STMP2, #1025 
i G100 
IMP 6S 
CMP sine, #1024 
BNE 

YPE MSG100 

IMP by 
CMP STMP2, #400 
BNE 
MOV #21. ,RKDACRS) 
BR 20$ 
CMP STMP2, #1000 
BNE 
MOV #425, RKDA(RS) 
BR 20$ 
DEC STMP2 
MOV $TMP2, RKDA(RS) 


12:16 PAGE 87 


; INPUT_SPACE 
:EXIT TEST 


ES EPET OR 


; Ss TRY ANOTHER CYL 
8 IF 10 CONSEC CYL BAD 
5 ba NO AGAIN 


;NO WRL BY TIMEOUT 
;DISABLE WRITE LOCK 
; TYPE SPACE WHEN DONE 
;STORE RKDA OF ERROR 
;STORE FOR ERROR TYPEOUT 
E WRL ON TRK O, SEC 1 


LSE WRL OCC D_ON TRK 2 


SEC 21 
NO NEW DATA XFER TOOK PLACE 
I 


E IF WRL ON TRK O, SEC O 
R IN NO 

Re NEW para XFER 760K" PLACE 
; SEE IF MRL ON TRK 2, SEC 21 
ie NEW SATA x KFER 760K" PLACE 
£ IF WRL ON TRK 2, SEC 20 


BRT 
SEC 18 
gt RS Orb oa oiTA RO eae K AGAINST 
;SEE IF a WRL AT TRK 1, SEC O 
terse se SECTOR AT WRL IS TRK O, SEC 21 
— IF WRL AT TRK 2, SEC O 


SE 
BR_IF_NO 
ELSE SECTOR AT WRL IS TRK 1, 


— 


SEC 21 


;GET SECTOR AT WRL 


ef 


SEQ 0087 


Red 


454 
4 


<£ SELELLLL 
£ 


SEMSMENAK UA Losses 


3 
uur 


: 


now 
None 


Aarts 
~BSaLER 
OVO 


0 a RK DR PRT3 
-Pll AN-78 12:08 
020644 016537 000006 
een ORE oH 
00S737 001164 
Bh 
470 001164 
76 r ooo001 
1 001462 
14 
020716 000137 020156 
1 
36 QOle765 1 
44 : 
13 1366 


1 
1 
1 
1 
1 
1 
1 
1 
1 


i 








Mit} 


a ee ee ee et ee be ee ee pe 
led ed lanl onl od © | 2 
RELVeETLo We 

£o £ 





oo 
ares 


8 SSVes8s 


3 89 


mre 
£0 
vor 


8 
Oo 
— 
Ne 


MACY11 — 


001166 


20$: 


81S: 


WRITE 


MOV 


-JAN-78 :16 PAGE 88 
LOCK Ted 


RKDA(RS),STMP3 ;FOR ERROR PRINTOUT 


PC, SUBCLR 
24 ;CERR AFTER SCLR 
STMP2 ;SEE_IF TRK/SECTOR 0 
REPEAT, NO Q NEW DA DATA XFER TOOK PLACE 
MP2, #1023 :SEE IFT 1 
;REPEAT, wheel BaTA TO CHECK AGAINST 
#B81T0,STMP1 


AR ra Ua Hen WLE OCCURRED 


nae S CTOR SHOULD HAVE ALL 1°S 


63 
#DATAD, RKBACRS) ;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0’S 
#BA CS2(RS) 

8-256. , RKWC(RS) 

TMP3.RKDA(RS) ;REFRE 

trs) ;EXPECTED RAORO FOR TRUERR TYPEOUT 
OCYL , RKDECRS) 
es aa ;00 T CONTR RDY 
is’ RS Rov" eETER RITE! ChE CK CMD 
PC estar Ger FRESH STATUS 
ac HCS1 
ai E,HCS2 ;SEE IF WRITE CHECK ERROR 
KDB(RS),WD1 sACT WORD FOR PRINTOUT 
Ace AFTER WRITE CMD 


22 ;CERR AFTER WRITE CHECK CMD 


B00. - SPIN!D. DROY?D. vv! aOR» .AD WDPECrED MSG AD 


#{D, SpoK:D.caRnT#O, sEXPECTED Al 
3562 SoS PELDS AES fad 

#2,£.B82 sare $0 OR EXPECTED MSG B2 

#3,£.83 :MSG ID FOR EXPECTED MSG 83 
PC, CHKMSG ; CHECK es nae oe Aly Bl 
T.A2!T.B2e!0 pect t D HERE 

7 ad: ed R WRITE CHECK CMD 
1 en 
Nee i FOR 

MSG72 SRTING BAL BALANCE OF TESTS 
ENDRV 


SEQ 0088 


i> ee —— 


C 
Cc 


SREJE-P11 25-Jan-78 12:08 


403 021136 
SE coisa 
a lip 
aid Belige 
a13 Be1866 
4616 021202 
alg Ble 
isl Bikes 
Be 18s6 
Beles 
46 1 
au Ee 
oe Bl 


1 


SsbebE6E 
Sea 
RRRRRR RRERRRR & 

SRiee? R BFSRRRS 


SLES LC£ £ 


e2nsen = 


3727 001164 


fea, 

0327 040000 

HLS coon 

000437 

104022 

012737 o1070 
37 6 1 
7. 025264 

ie 

IRBs 

104032 


MACY11 api tose} 


7S$: 


-JAN-78 oe PAGE 89 
WRITE LOCK TE 


pect ah SSo58 TEAnsen Bae 2ons SS 


3320 
g 


STMP2, #400 ;SEE IF WRL AT TRK 1, SECTOR O 
_,RKDACRS) {ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 

TMP2, #1000 EJF WRL AT TRK 2,SECTOR 0 

gS, RKDACRS) ;BRIF NO SECTOR BEFORE WRL IS TRK 1, SEC 21 


;GET SECTOR BEFORE WRL 


EE APORAP ron cmon priour 


e8ITO 
CURRE 


aBarA0, RKBACRS) HHRITING O ScHLE SECTOR -T SHOULD HAVE ALL O’S 


fe csens) ;WRITING 1’°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 


@RKBAC athe ;EXPECTED WORD FOR TRUERR TYPEOUT 
OCcYL, Roda ) 


@<WRTCHK> ,HCS1 


pom iN, ROTe get x oe cor RITE Be hy RDY 


GSTAT TAT 
CERR,HCS1 
SWCE,HCS2 ;SEE IF WRITE CHECK ERROR 
(RS), WO1 sACT FOR PRINTOUT 
Ace ARTE WRITE eno 
84S 
22 ;CERR AFTER WRITE CHECK CMD 


#<0!D.SPIN!D.DRDY!D. 5¥V1D. DRAD , ,£.AO ;EXPECTED MSG AD 
a  SPOK!D. ba Hee BRAM ‘dadee ,E. al.  SEXPECTED Al 


Sn Sy 


Tbe. = i CB - CHEE CK CMD 
& nee a0 ERR RROR 


;MSG B1 ERROR 


SEQ 0089 


ya UNIBUS RK& DR PRT3 SEQ 0090 


MACY11 30A(10S2) 2@S-JAN-78 12:16 PAGE 90 
ZREJE.P11 2S-JAN-78 12:08 T16 


WRITE LOCK TEST 


1440 «41044 044003 TYPE MSG72 ;ABORTING BALANCE OF TESTS 
dees 1444 b50132 023374 IMP ENORV 
sees 021450 84S: 
a3 021450 128: 
ug : : ee ae ae tee eee ee 
Hebe ; ATES AC LOW DETECTION PART 2 
ha e4 i ans Test VERIFIES THAT WHE apQuER S LOST + THAT WRITING CEASES 
de33 if THERE {eR BoRnORS Fs’ otficer ac a BACT AAS FUNCIIONAL 46 
4671 # N THE INTERFACE SHU 
ye H « SESKREERSSEEKEREREEREAHAERES SAKES SASRRARSSSRRRRRRAKRARSARAARRRSRAEEE 
0214S0 oo00004 +6717: SCOPE 
75 O214S2 012737 oO00001 001174 #1 Sires DO 1 ITERATION 


MOV ; 
021460 012706 001100 MOV astac i hes TORE STK PTR 


blw?a Tosaa4 PP" ERROR — 
BBiS7E 1BNNBL = BAT5EE TPE; HBGEE 


;CERR AFTER SCLR 


aan DSU 


au Eg 2: in ae 


021524 004737 026106 1$: he PC,GSTAT 


‘ease 


932737 O04000 005366 
1417. - 


46 
58 
58 
4680 
a g21 004737 930412 JSR PC, CCSP NPUT CONT=E OR ACE 
re i 1 33 JMP 12$ ; URN HERE FOR ont -E 
: 


iBRe PF Ae WRITE LOCK 


021540 104401 TYPE ,MSGS3 ;DISABLE WRITE LOCK 
466 pe 1eys MSG37 i PRESS SPACE WHEN DONE 
pd 1550 7 JSR Pc, GETSP ;GET SPACE 

1SS4 7 R PC, GSTAT 

W209 081560 7a Bit a HAL, HMR2 ;SEE IF ngriee WRITE LOCK 
4702 021570 104110 ERROR 110 tRTTE LOCK NOT DISABLED 
oe 021572 000137 IMP 125 :EXIT TEST 
47; 1S 11S: CLR TOCYL ; SETUP 
zoe Geieoe Buster th Gaabo I, sescen voaut 
4708 B31 13 008037 CLR FORMAT ; ROUTINE 
4710 021616 004737 13S: JSR PC, FHOTAB ;BUILD STD 22 SECTOR HEADER TABLE 
4712 O2l622 012765 MOV #HDTAB, RKBACR 
4713 021630 012765 MOV gor »RKWC CRS 


CZREJEO co Exe DR_PRT 


£f£t 

NNN 
ae ae ee 
OO NOU 


<£ £££ 
NNNNNNNN 


SESSESEES 
SEVIS 


47 


8 


S 
: 
& 


SELLLLLEES 
SES yaggaoE 


SELLS 
PP PP: 
HE 


3 S33 
a ie 





ae 


85 


2s- 78 13: 


coo 
owe 
88 8a 
Str 
N furor 


Boi44 


g BaRaae 
5 
8 


8 
8 
8 
o 


ORES 

se 
NN St tated 

we 

f 8 

ees 


Ww 
N 
oO 
tf 
WwW 
W 
N 
= 


MACY11 30A(10S2) 
T17 


000003 


000012 


64S: 


16S: 


178: 





2S-JAN-78 12:16 PAGE 91 
AC LOW DETECTION PART 2 


SWAB 
MOV 
SWAB 


once 


Bc A> «CSE 
PC, DATCMD 


;00 DATA xX FOR CMD 
; NO RDY AFTER WRIT 
BC,GSTAT *GET FRESH STATUS 

4g’ 

Ol ;CERR AFTER WRITE HEADER CMD 
HEAD, #3 ;SEE_IF ALL HEADS DONE 
1387 :BR IF NO 
PC, SUBCLR 
24 ;CERR AFTER SCLR 

TAL, RKBA(RS) ;RETURN HERE FOR SPACE 
Spal RK Set Re} iRRITE INT TIAL BACKGR 
§ * 2 RWC CRS) ; TRACK 0,1,2 
ry ta, HCS1 
PC, DATCMD ;D0 WRITE DATA ¢ J 
Pc .GSTAT | Ger PRESH R We 
; SE, HER ;SEE IF BAD SECTOR 
B<Gi0-SPINt0- DRO eRexe Bona .AD 
#<D. SPOK!D. CART!0. DOOR!D. BRHM!D.SSP>,E.Al 
#1,€.81 ;MSG 10 FOR 
Gan B2 eee O POR EXPEC 
#3,£.83 ;MSG 18 FOR EXPEC 
PC, CHKMSG ;CHECK MS 
T.A2!T.B2!0 is 
52 ;MSG AO ERR 
23 ?MSH BO ERR 
33 :MSG Al ERR 
7a ?MSG Bl ERROR 
TOCYL ; 

TOCYL, #10 j TRIED 10 CYLINDERS? 
18 *BR IF_NO 
be. !CANNOT WRITE ON 10 CONSEC CYL 


;HEAD ADDR 


— —— 


& GET CONTR RDY 
CMD 


& GET CONTR RDY 


1 neve Bl 


ea acTEA indie 
OR 


;EXPECTED MSG AO 
;EXPECTED Al 


SEQ 0091 


a 


_ CZREJEO UNIBUS RK& DR_PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 92 SEQ 0092 
| C2R6JE.P11 2S-JAN-78 12:08 T17 AC LOW DETECTION PART 2 


4770 022136 000137 021726 18S: IMP 16S 

778 142 004737 026436 2s: ISR PC, SUBCLR 

i277 22146 104024 ERROR 24 ;CERR AFTER SCLR 

4775 9221 194401 041521 TYPE ,MSG49 ; TURN OFF AC 

47 is4 1 1 o42532 TYPE *MSGS7 :VERIFY BATTERY RETRACT FUNCTIONAL 
Oe ; 

780 1 1 040573 YPE MSG37 PRESS SPACE WHEN DONE 

4781 030452 ISR Pc, GETSP *GET SPACE 

u2 BR 8$ :SKIP ALL WRITING 


i 
47 
358 ate 7. 001474 TST BSERR ;SEE_IF ALIGN CART USED 
<5 2164 14 EQ 1S$ ;BR_ IF NO 
1 7 
1 
47’ 001432 001160 15S: MOV TSOOOO, STMPO 
47) BS850e Ba2037 00116e CLR STMPi ’ ;BITO=0;WRITE O'S; BITO=1:WRITE 1°S 


47 O22212 004737 026436 4S: JSR PC, SUBCLR 
4788 B22e216 104024 «C ERROR 24 ;CERR AFTER SCLR 
4980 83 220 737 000001 001162 BIT #BITO,STMP1 
4791 1004 BNE 5 ;BR_IF WRITING 1’°S 
47ge 30 0014S& 000004 MOV BOATAO, RKBACRS) :SETUP ALL 0’S 
d BR 6 ’ 
49 ac 1 1 oo0004 SS: MOV BDATAL RKBACRS) ;SETUP ALL 1’S 
4 io 65: BIS #BA! ,RKCS2(RS) 
47 404 ooo002 MOV #-63. #256. , RKWC(RS) -TRACK 0,1,2 63 SECTORS 
CLR RKDACRS) ;BEGIN AT TRK AND SECTOR 0 
4 1 366 o00020 v TOCYL, RKDC(RS) 
4800 1 3 005340 MOV aWROATA,HCS1 
4 Gees0e 737 024504 JSR PC, DATCMD ;D0 WRITE_DATA CMD & GET CONTR RDY 
4 104011 ERROR 11 ‘CONTR NOT RDY 
4 10 737 026106 JSR PC, GSTAT 
u 4 100000 005340 BIT acERR, HCS1 
4 1017 BNE 3 
4807 5359 005337 001160 DEC TMPO 
1803 3 1041 ERROR 146 ;CERR NOT SET BY TIMEOUT 
4810 O22334 104401 041574 YPE »MSGSO > TURN AC 
481 2340 104401 043615 TYPE MSG69 ?DEPRESS SPACE AFTER READY’ LIGHT ON 
481 eai4 737 030452 ISR Pc. GETSP >GET SPACE 
ueis 000137 023374 IMP $ *EXIT TEST 
4815 022354 005237 001162 7$: INC STMP1 
4gi6 022360 000714 BR 4g :GO WRITE OPPOSITE DATA 








CZREJEO UNIBUS RK 


CZR6JE.P11 


BBB469 


vais G8839 G51001 
820 22372 104147 


2efane7a" 12; :08 


000100 


001474 
023374 


026436 


001164 
001164 
ooo001 


MACYI1 = |) eae 


005370 


001164 
001166 


005370 


G8 


005366 


001023 
001162 


3$: 


10S: 


65S: 


14S: 


25-JAN- 
AC LOW DE 
BIT #D.ACLO,HMR3 
BNE 10$ 
ERROR 147 
INC 
MOV ab. DSC!D.PIP!D 
MOV 
Vv 
MOV 
ISR PC ccs iC 
e ge 
ERROR = ; 
ERRSE 38 : 
MOV HDA, STMP2 
MOV HDA; STMPS 
TYPE ,MSGSO 
TYPE MSG69 
ISR Pc, GETSP : 
JSR PC, SUBCLR 
ERROR 
T " ACLO, HMR3 
Q 
ERROR 
CLR D 
MOV SCCLR, RKC 1(RS) 
MOV T/RKCS2C(RS) 
MOV #PACK'HCS1 
JSR Pc, DOCMD 
ERROR 116 
BIT ect 
ERRor 
TST ce 
he 86st 
JSR PC, SUBCLR 
ERROR 24 
TST STMP2 
BEG 738 
C STMP2, #1023 
BEQ ? 
BIT #BITO,STMP1 


CO8 
fection Bart Ss SEQ 0093 


;AC LOW NOT SET 
FOR VALID HALT 


o. SPIN!D. W!D. DRA>,E.AO ;EXPECTED MSG AD 


5B: ONC! B Boop Eek aE oBGe:0. aRHMYD. SsP>,£.Al 


Al, Bl 


Brogs "Speck Sit AER HERE SWITCH OFF FROM HEADS LOADED 
By ERRGe 


;SAVE RKDA 

;SAVE FOR TYPEOUT 

; TURN AC BACK ON 

;DEPRESS SPACE AFTER READY’ LIGHT ON 
;GET SPACE 


;CERR AFTER SCLR 


;ACLO NOT RESET AFTER POWER UP 
;FOR VALID HALT 
;DRIVE # 


;00 PACK CMD & GET CONTR RDY 
;CONTR NOT RDY 


; VOLUME VALID NOT SET AFTER PACK CMD 
cP ALIGN CART USED 


iPod eX? TEST 


;CERR AFTER SCLR 


tREPEAT, NO) NEL DATA XF R TOOK PLACE 
SEE IF’ TRK S, SECTOR 19 
i REPEAT, NO NO OLD” BATA’ 10 CHECK AGAINST 


CZR6JEO UNIBUS RK& OR PRT3 
CZREJE.P11 2S-JAN-78 12:08 


SESLLLLELE 
rimeiratretste nicl 
; R 
eases 


SLL LL£ 


tf 
oonow 


be hb bh he 


4920 023064 


001006 


000137 


001462 


022142 
0014S6 


UU ns 
oe 


02S264 


MACY11 30A(10S2) 
T17 


ooo0004 


oos44e 
OOS446 


000400 
ooo00& 
001000 
000006 


733: 


66S: 
675: 


74S: 


7S$: 


68$: 


2S-JAN-78 12:16 PAGE 94 SEQ 0094 


AC LOW DETECTION PART 2 


NE 
BR 


S_ WHEN WLE OCCURRED 
SECTOR SHOULD HAVE ALL 1’S 


SORTAL  RKBACRS) RIT MLE 
2s | 
SET RSRES? | sWRITING 1'S:WLE SECTOR SHOULD HAVE ALL 0’S 
eta 


F RK 
+ BRPEeTED KORO FOR TRUERR TYPEOUT 
TOCYL, RDC CRE) 


BB ATEN’ vox: ;00 DATA X_ FOR CMD & GET CONTR RDY 


Y AFTER WRITE CHECK CMD 
2 GSTAT NO ROY oF, TATU 
#CERR,HCS1 
E,HCS2 ;SEE IF WRITE CHFCK ERROR 
RKDB(RS),WO1 T FOR PRINTOUT 
dab ‘ HAGE AFTER OR roe E 
22 ;CERR AFTER WRITE CHECK CMD 


B<BA0- -SPIN!D. ea heMeeC EO Rea" 5a? ;EXPECTED MSG AD 


a<O, te. carr? !D BR A. ae Feet! ;EXPECTED Al 


EB igs 1B FOR EXPECTED MSG BS 


oes 8 6 MSGS AO 
fhe sero PReCaPReFERTAITE SREB cro 
i a ES 
efina’® ; ABORT ING BALANCE OF TESTS 
TMPe, #400 tae WRL AT TRK 1, SECTOR O 
#21.,RKDACRS) ;ELSE SECTOR BEFORE WRL IS TRK QO, SEC 21 
STMP2, #1000 ets IF AT TRK 2,SECTOR O 


Ags, RKDACRS) fELSE SECTOR BEFORE WRL IS TRK 1, SEC 21 


SiagegRsieS 
Ze CRLFERS 


Wwe 


SELLCLCLCLESCOCOLSCLELCES 


3 


LLLLE 


ee aed ask 


LELLCLOLOL 


SERREERENE 


LLL 


oy Oe aE 08 MACY11 i oe ee an erecrion 1. one 95 , SEQ 0095 


1164 69S: DEC SIRES ax aan ;GET SECTOR BEFORE WRL 
: Boi ibe 70S: nov DAC he ) ST 3 ;FOR ERROR PRINTOUT 
BNE ;BR IF WRITING 1°S WHEN WLE OCCURRED 
001456 co0004 MOV Cinna, ances ‘WRITING O’S:WLE SECTOR -1 SHOULD HAVE ALL 0’S 
Bens 4 Zig: Moy BDATAL RKBACRS) ; ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°S 
i 177400 o00002 MOV 8-256. Ric Re ) 
i g ‘ 001436 mov BOR AAs, ;EXPECTED WORD FOR TRUERR TYPEOUT 
46739 peaso4 eee TeR poDaTchO’ ;D0 DATA X FOR CMD & GET CONTR RDY 
p 
026106 aoRon GSTAT iN, ROY a7 —_ 
100000 005340 BIT #CERR,HCS1 
737 O40000 o0s342 r SHCE , HCS2 ;SEE IF WRITE CHECK ERROR 
(3 000024 001434 MOV RKDB(RS),WO1 ;ACTUAL_WORD FOR PRINTOUT 
104137 ERROR 1.37 {WCE AFTER WRITE CMD 
104022 76$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
abes2 005430 Moy #<0!D.SPIN!D. DROY!D.¥ ey DRA? , Pra Bo? ;EXPECTED MSG AO 
187 0017 . pos434 nov #0. .SPOK!D. conrib ose te :S5P>,E.Al_ ;EXPECTED Al 
12737 DooOe -o0s442 mov et .B2 EXPE rib tb ek CTED MSG B2 
12737 000003 OOS446 MOV #3,£.83 mee 1D FOR CTED MSG B3 
6b 3 rer TRGRD Feast tT Bet0 omega oes ep cite 5 HE RE 
104 37 ERROR $7 nse a0 beaoe AFTER WRITE CHECK CMD 
ee oa: fee Bee 
LOwtG, 944003 Type, tisg7e :ABORTING BALANCE OF TESTS 
773: 
12S: 
ENDRV: 
iitést'20 END OF PROGRAM 


it THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE 


CZR6JEO UNIBUS RK& DR 
CZR6JE.P11 25-JAN-7 
4986 
4987 
4 
i 
49 
ee 
is Gens prone 
4994 3404 Ole7 
499 BS 14 3737 
4998 s4ee 001402 
5000 3424 000137 
1 
S002 
$003 
5004 
500s 
SO06 
$007 
S008 
$0093 
5010 
S011 
S0le 
5013 
5014 
5015S 
enis 
S01 
5018 
5019 
a Geni32 prope: 
apse 3046 012706 
44 005737 
Se Gens peere 
apse Oe34Se 000137 
$030 3456 3727 
5031 3464 601004 
S032 Oe3466 10440 
e033 Oe347e 0001 
SO 34 104401 
Be fee iow 
es Bes 
S040 023516 104401 
5041 Oe3See 104401 


PRT3 
8 12:08 


oo0001 
001100 
001220 
00S460 
012402 


042600 
040573 


MACY11 Ses 10se) 2S-JAN-78 12:16 PAGE 96 
20 END OF PROGRAM 


SEQ 0096 


5% ABOVE uM STS FOR THE NEXT DRIVE PRESENT 
1% THE NE Test I 1S ENTERED ONLY AFTER ALL DRIVES PRESENT 
3% HAVE B EEN yep. 
i DO NOT LOOP HIS ’TEST’. 
pp lectteeccesisannosnatesnannpcnacesnnasiasnanssannananenannenets 
001174 * MOV #1,$TI ::D0 1 ITERATI 
MOV SStACK SP : a STK PTR 
INC SDEVCT R COUNT F DRIVES THAT ARE CHECKED 
001220 be0 ORT S, SDEVCT ALL DRI Mest P ESENT TESTED? 
NOORY oi ¢ NGO & TEST NEXT DRIVE PRESENT. 
: s LEKKRAELRAERARAALRERALRAERAAKRAAKEKRERESRAREARRKEREERRRSRAAARRERRARRRRES 
j ATE ST 21 MULTIPLE DRIVE DETECTION TEST 
ti THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
i AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT 
;# THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 
tx a. T CTOR 
1 i ee el E RO PURSERT THE Osan. UNIT SELECT 
H ; INE) ON ANY 2 
1 i reetbeTER THEN SSES THE SPACE BAR TO CONTINUE THE TEST 
# oR A CONT-E TO EXI TEST 
1 a GRAM VERIFI S THAT MUL TIP E DRIVE SELECT & DRIVE UNSAFE 
i Ms H PROSE DRIVE UNL 
i THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 
lal 
001174 MOV #1,STIMES ;:D0 TERATION 
MOV eatac cep APS T ORE Pathe PTR 
TST SPASS 
BEQ 1$ ;D0 TEST ONLY _IN 1ST PASS 
IMP ils :ELSE EXIT TEST 
000001 1S: CMP DRIVS, #1 
BNE 2S ;BR_IF MORE T 1 DRIVE PRESENT 
TYPE MSGb2 :BYPASS TEST HONLY 1 DRIVE PRESENT 
MP 11s ‘ELSE EXIT TEST 
2s: TYPE ,MSG28 ;MULT DRV DETECTION TEST 
TYPE MSGS2 :PRESS CONT-E TO EXIT OR SPACE TO CONTINUE 
ISR Pc. CCSP : INPUT CONT-E_OR SPACE 
IMP 118 +RETURN HERE FOR CONT-E 
TYPE ,MSGSB ;LOAD HEADS ON ALL DRIVES 
TYPE *MSG37 :PRESS SPACE WHEN SONE 


eeRes 


Seeiee | 


BRTERSB IS VSS SSS Soe ORRELR Rae 


0 UNIBUS RK 
-Pll 23- ane7B" I :08 


023526 
023532 
023536 


004737 


004737 
104024 


104401 


bo473 


0304S2 
026436 


042662 


043075 


026436 


MACY11 — 


3S: 


7$: 


108: 


11S: 


MULTIPLE bRIve BEFECTION fest 


JSR 


PC,GETSP 
PC, SUBCLR 
e4 


MSG61 


RO, -(SP) 


3 

UNLD 

PC, SUBCLR 
24 


;GET SPACE 


;CERR AFTER SCLR " 
; INSERT SAME UNIT SEL PLUG # IN 2 DRIVES 
i DEPRESS -— BAR WHEN DONE 


;DRIVE # COUNTER 


;DRIVE # 
:ADD CDT IF RKO? 

‘eet cP ATuS 

;D0 DELAY TO CATCH MDS 


i SEE Af we DRIVE HAS MDS 


oe TRY S ANOTHER ORIV 
:S on DRIVES TESTED 


ee ate MOS 
; TRY AGAIN 


hig 8 Foe oY 


: 
Be le Ths, a 
i BBRELSCEMNESE SUES Ea uth Sd 
RPU Bo Rte “OR Space 
: RETURN CONTROL-E (EXIT) 
: RETURN HERE FoR SPACE ("0 AGAIN) 


DRIVE & 


;CERR AFTER SCLR 


SEQ 0097 


CZR6JEO UNIBUS RKE DR PRT3 MACY11 30A(10S2) @S-JAN-78 12:16 PAGE 98 SEQ 0098 
CZREJE.P11 2S-JAN-78 12:08 END OF PASS ROUTINE 


BAEZ .SBTTL END OF PASS ROUTINE 
eRga ; HD TSS siege aioe 15 0 oecina. nureen) 
3 cree BXXAXX" to ea XXXXX IS A DECIMAL NUMBER) 
ie ISN’ B nONT TOR $8 ofexy 
0% peices gre 
enas 4 001102 a STSTNM e ; ZERO THE TEST NUMBE 
1174 LR $TINES $3 OF ITERATIONS 
NC # Rick MENT CE AURGER 
i 001216 I 1 ,SPASS NEG” NUMBER 
104 C)+ + tO oP? 


DEC 
SEOPCT: .WORD 





na 

5103 023764 BGT SDOAGN 3;YES 
} Ne MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 

De SENDCT: .WORD 1 
1 De SEOPCT 
5107 023774 104401 geuoN TYPE pSENONG a aes 0 
etpg Phaade "9 ‘ Hl ==Bet cEfhad "Ss at WITH SIGN 
5110 104401 024036 TYPE SENULL iT 
it 1 37 ooo042 SGET42: MOV gave, RO HE pia HON OR ADORE . 
11 aat >: CLE THE NOR.” 8 
114 1 SENDAD: PC, (RO) ::GO TO MONITOR 
Sil ' NOP :3 SAVE ROOM 
511 4: NOP >? FOR 
S11 ;;ACTLI1 
11 SDOAGN: 
1 IMP (PC) + ; ; RETURN 
i SRTNAD: .WORD TSXY 
Siel 3 O0U0 SENULL: :BYTE sNULL CHARACTER STRING 
elge 1 gues aie 42116 S$ENDMG: .ASCIZ 7485183 eno pasé’s 
Bt 2012 
1 000001 001230 STSXY: CMPB BAPTENV, SENV R APT ? 
I 7 NE 2s s BRANCH iFYN om 
S127 Oe4066 022737 o00002 001216 CMP #2, SPASS WO PASSES DONE ? 
4 Beare 001102 is: FRE = S4¥stnm eae dhe fist NuMBER 
1 41 000775 BR 1$ 
5131 024104 000137 o1061e2 2s: IMP STs ere 


é 


PEO Ow NOW LOIN Ow VON LO OD VET LOO Oe GO Le OO MN EER 


ee ee he be he ee hb es be be Be ne pn fas ae ee ae fe ee Pe ae Be Be be Be Be Be Be he Bo Be = = fe be pe be eB ee 


SVU TTT TT TT TT TT UT TUT TU TT 


@o 
N 


I08 


0 _UNIBUS RK& DR PRT3 MACY11 30A(10S2) @S-JAN-78 12:16 PAGE 99 SEQ 0099 
-Pll 2S-JAN-78 12:08 SUBROUTINES 


-SBTTL SUBROUTINES 
; SUBROUTINE TO CLEAR ALL FLAGS FROM DOUMP THRU DOTIM 


110 012700 005450 CLRFLG: MOV #DDUMP , RO 
114 0127 177757 MOV #-17.,R1 
: Qe 1$: CLR a 
8 1 
GSEs Sb1576 me i 
TYPE PROGRAM ID IF FTITLE=0 
Pate 737 001360 TITLE: TST FIITLE 
1 37 001360 INC FTITLE 
024142 401 035652 TYPE MSG1 : PROGRAM 
sabia .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
ise 005737 oo0042 rst save $s BRE UNNING UNDER XXDP/ACT? 
154 1237 001230 000001 cHPe SERV, #1 Be ie RUNNING UNDER APT? 
te ee 
184 023727 001140 000176 CMP SWR, #SWREG +: SOFT SUETCH REG SELECTED? 
172 1005 BNE 65S ::BRANCH IF _NO 
174 Ob GTSWR sab ::GET SOFT-SWR SETTINGS 
Geve00 112737 000001 001134 bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
206 000207 1S: RTS PC 
! ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
:DRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 
1 RVS: RDLIN 
Pah 177770 ee ay ae SY :GEt BP COUN ee 
v7 er Came a 
: dee MOV sORIVO,R3 t ORIVE FBG ADDR 
000060 MOV #60,R4 
$: CMP RY, Re ;WAS TYPED CHAR O THRU 7? 
a . BE 33° BRANCH fF YES 
ou 1st (R3)+ :NO, INCREMENT DR FLAG ADDR 
7 MP RY, #70 
es —- BNE es ;S/B 0-7 OR TERMINATOR 
sob BNE 4g 
Fl 177770 CMP R1, #-8. 
024264 BEQ 6$ ;DEFAULT ALL DRIVES 





CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 100 SEQ 0100 
CZR6EJE.P11 2S-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 


188 De4ebe 005037 005510 7$: CLR SIZFLG ;BYPASS TEST ‘1 (SIZING) 
189 024272 000207 RTS PC :FOUND TERMINATOR, EXIT 
19 74 3S: NC aR ;SET F FOR THE DRIVE 
136 5 43 005460 INE Seivs i PRCREMENT foro a DRIVES TO BE TESTED 
1 $78 1 MOVB (PO)+,R2 :GET NEXT ASCII CHAR. 
134 2 77400 BIC #177400, Re + MASK 
5195 io 27 doooss CMP #54, Re 518 IT A COMMA? 
1 14 40 BEQ S$ : YES, 0 NEXT WORD. 
1 70e TST Re jNO, IT A TERMINATOR? 
1 1001 BNE IF SOMETHING WRONG. 
761 BR 7 :FOUND TERMINATOR, EXIT 
520 04401 044350 4S: TYPE EM1 ;ONLY_ 0-7 ALLOWED. 
e p54350 boc13 010016 IMP PRGSRT :START ALL OVER 
5204 024334 005201 S$: INC Ri $78 NO HORE THAN 8 DIFF 
Be0e terra area BR dg LIF , HAVE ERROR 
S208 Oe4342 005237 005510 6S: INC SIZFLG ;00 TEST 1 (SIZING) 
pe09 024346 000207 RTS PC :EXIT 
1 ; 
Bie :ROUTINE TO INPUT RKBAS OR DEFAULT. 
14 : 
1S 04412 GBA: RDOCT 
1g 00 MOV (SP)+,RO ;GET LOW ORDER FROM STACK 
i see B01 409 BEG °S BRANCH IF DEFAULT 
E 3 Bese Steer 001264 nov RO, SBASE , ‘ 
B54 12737 177440 001264 1S: MOV #177440,SBASE ;DEFAULT VALUE 
024374 000207 RTS PC 


rOronD 
one 


ROUTINE TO INPUT RKVEC OR DEFAULT 


ONE 


GINT: RDOCT 
HOV ap)* RO ;GET LOW ORDER FROM STACK 
BEQ b ;BRANCH IF DEFAULT 
BA 001334 MOV EVES 
ai 4 35 024430 2s: J38 PC,SETINT 
a] 12737 000210 001334 1S: MOV 10, RKVEC ;DEFAULT VALUE 
Be ine fer Y 6s 
5238 ; 
esac ;ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 
Se4 4 
e5up 024430 013700 001334 SETINT: MOV RKVEC,RO 
Se43 Oe4434 012720 031152 MOV #INTER, (RO)+ ; INTER ADDR TO RKVEC 


CZREIEO_UNIBUS _RKG DR_PRT3 MACY11 30A(1052) 25-JAN-78 12:16 PAGE 101 
C2R6JE.PL1 aN78 13:08 GET VALUE FOR SOF THARE SWITCH REGISTER SEQ 0101 


Se44 peww4o 013710 001336 : MOV RKPRI, (RO) ;PRS TO RKVEC+2 
e546 024444 000207 RTS PC 
g THIS ROUTINE SETS COT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7. 
*ENTER WITH COMMAND IN HCS1 
46 7 1179 o0s340 ocmD: BIS STMPY HCS1 ;ADD CDT IF RKO7 
4 0137 000000 MOV HCS1,RKCSI(RS) DO COMMAND 
4 7 1424 005376 MOV p10 TEMP1 
? o24s42 J PC, FRDY ;FIND CONTR READY 
74 0207 RTS PC SET HERE IF NOT RDY 
4 0627 BS ooo0002 AOD #2, (SP) tet Se SKIP OVER ERROR 
R PC 
5260 iTH S ROY TINE 18 SIMI AR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS 
QU. AE IMEOUT 
7 901170 005340 honey BIS STMP4,HCS1 ;ADD CDT IF RKO7 
4 5 005340 000000 MOV HCS1.RKCS1(RS) DO CMD 
S 013737 001432 005376 MOV TS0000, TEMP1 
Bee 7 o2e4s542 JSR PC ,FROY ;FIND CONTR RDY 
534 7 ooo002 £08 , (SP) 
ead 062 16 #2, (SP 
7 
7 00 TINE TO FIND T ER READY (RDY) DURING A DELAY 
Q jENT ER ER WITHA 8 COUNT nOTERP 
2 HEN 46 SP GEERT GETPOSVER*EaaseY” 
BE TURN 8 b6r BY Dre Fhe RETURN FOR EITHER CASE 
78 o2e4s4e 032765 p00200 ooo000 frRoY: BIT SRDY, RKCS1(RS) 
a a onesre ier 
? 76 PC, ;STORE ALL RK611 REGS IN HOLDING REGS. 
4 536 Beeb o8 JSR pce ORCERR :CHECK FOR SPECIAL CERR 
pees RTS :NO_RDY EX I 
8s $ 1S: ADD a. (SP) :SKIP OVER ERROR 
024676 ISR HOLD 
47 J R Pc, Be’ oKe RR ;CHECK FOR SPECIAL CERR 
330 ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY 
a 1 765 oo0200 cooon0 FRDYI: BIT SRDY, RKCS1(RS) 
3 005376 DEC TEMP 
Boge pote} 000034 005366 FO y RRS (RS) , HMR 
29 016537 000036 005370 MOV RKMR3( RS); HMR 
2e38 Geve4e 0047 7 Oe6c0e4 JSR PC, CKCERR ;CHECK FOR SPECIAL CERR CONDITIONS 
46 0207 RTS :NO RDY, EXIT 


CZR6JEO UNIBUS RK& DR_PRT MACY11 308 ( 1052) -JAN-78 12:1 1 
C2ZR6JE.P11 es- “Sane 78 13:08 GET VALUE FOR SOFT au ETCH RE REGISTER 


Hite fiose Suave Ry iS} tem 
te Ld 026024 J 


778 te ;CHECK FOR SPECIAL CERR CONDITIONS 


Spee 
2 


STORE ALL RK611 REGISTERS IN HOLDING REGS 






10 024676 O16 HOLD: MOV RKCS1(RS),HCS1 
531 704 O16 MOV RKCS2( RS); HCS2 
1 7 1 MOV RKWC CRS) , MWC 
1 7 1 MOV RKBA( ), HBA 

14 7 1 MOV RKDA(RS); 

1 7 1 v ( 2 HDS 
SH 750 { NOV RARASOF CRED HASOF 
ig i MOV (RS) HOC 

4 Ol Mov RKMRI ( } teed i 
mt RE ie 
4 : 005374 Ov RKECPT ( ms) ; Pat 
psep33 passes RTS PC 7 


ROUTINE TO CHECK FOR ee 
;RETURN IF ATTN NOT PRESENT (ERROR CONDITION) 
;RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 


o2es024 010446 tstatn: mov RY 7190) ;SAV RY 
ee 005357 Bre © ATTNCRW),HASOF+1 
BEG 1s nye senancd IF ATTN NOT PRESENT 

BSeous poco02 BOD . a, (SP) sRRaR OF appr TO JUMP OVER ERROR. 
bees 012604 1$: MOV (SP)+,R4 ;RESTOR RY 
025054 000207 RTS Sal 

i ROUT NE T0 ite arTN ora S GREATER THAN 1 SEC 

SRE TURN If NO ATTN ERROR ONDITION) : 

Bae I TAINED BEF THE RETURN FOR EITHER CASE 


anreee peer umeennene mate ete 
OTN Pe 
ee 
Be 


partic MOV R4Y,- Ri ;SAV RY 
ba; 555 008376 3S: Ml - wt 
S330 000017 1S: BITB ATINGRS), RKASOF+1(RS) ;FIND CORRECT ATTN 


BNE 
005376 DEC MP1 





SEQ 0102 


_ 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 ca 2S-JAN-78 12:16 PAGE 103 SEQ 0103 
CZREJE.Pil 25-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 


e325 852178 88433) oosuo0 Bee | HEnpe 
e328 Bseite Bodsed oo00e& atk Beme1 cRS) ; SELECT WORD O 
3 hoe (Ee FF RA REL rbATRa’ STATUS 


+. R4 
ae, (SP) :SKIP OVER ERROR 


2s: it Pescetar. {GEL STATUS AFTER ATTN SEEN 
RTS 





ROUTINE TO FIND ATTN WITHIN 1 SEC 
‘ENTER WITH COUNT IN TEMPL 
;RETURN IE NO ATTN (ERROR) 
? RETURN $2 IF ATTN 
!STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
: Farte: mov RY 7$SP2 ;SAV RY 
: 000017 : BITS ATTN(RY),RKASOF+1(RS) ;FIND CORRECT ATTN 
}: BNE temp 
= MR ; ECT 
5385 SER PC,G {BF Bet LATEST BORO oaTuS. 
8E nov (SP), ;RESTOR 
baa wane 026106 - cL RAMI (Rs 
Se en gE RESTOR 84 anon 
5392 025230 000207 RTS : : 
N_T 
ae RETEAAM8 BBWAA "EEtremarton + 12 us to ex 
'WHEN COUNT IS O ON AN 11/05 
5397 
Bas 


Sis i“ 8 OE i 


5401 Oe5e44 000772 B :2.5 US 

4 000207 1S: RTS PC :3.8 US 

ibs : THIS ROUTINE TYPES BYPASSED DRIVE#. ENTER WITH DRIVE# IN RO 
4 ’ 

407 04401 037335 BYP: TYPE MSG14 BYPA 

he pSeseq bfoo4e MOV RO, -(SP) Seve "FOR TYPEOUT 

5410 O25256 104403 TYPOS tO T YPE~-OCTAL ASCII 

S411 025260 001 .BYTE 1 + POE 1 DIGITS) 


i 


TE. Pil 


412 025261 
414 
41 
a 
ig Gesere 
418 
fees 
425 GB5316 
Wee 025332 
5 025340 
4 344 
iy Bees 
4 
: rae 
rece 
eae 
4 M1 
44 
eae ete 
44 4 
wi} OB54 
446 oes444 
oe Bae 
464 
uel GBsi7e 


<= nanan 
<= 
5 
a 
or 


QUT UU eu 
Pass 


aaa 
a 8 
é 


0 UNIBUS RK& DR 
2S-JAN-78 12:08 


oo02u? 
ao 
ne 


053737 
013746 
Oh 3737 
bi3737 


re 
tie 


Bou 37 
4737 
137 


eet 


013737 


nee 


032777 


PRT3 


MACY11 30A( 1052) 3 
GET VALUE 


153352 


PAGE 104 
SWITCH REGISTER 


;;SUPPRESS LEADING ZEROS 


THIS ROUTINE READS ALL MSG A & B WORDS 8& CHECKS THEM AS REQ’D. 
001504 ¢HKMSG: MOV 
ADD 


1$: 


S-JAN-78 12:16 
OR SOFT 
.BYTE 0O 
RTS PC 
a(SP) CHKFLG 
4 
JSR manpy 
I UNIT, 
Biss SUNT? 
BIS SUNTT? iE i 
BIS SUNIT, 
BIS E.DDT,E.A0 
MOV TEMP1,-(SP) 
MOV E.AQ TEMP1 
JSR SBPAR 
MOV Pesta E.AO 
MoV * .Al, TEMP1 
JSR Ee SBPAR 
MOV TEMP1,E.Al 
MOV .A2, TEMP 
JSR Bc Seren 
MOV 
MOV E.B0 TEMP 
JSR 
MOV Pé Stra E.BO 
MOV £.B1, TEMP1 
JSR 
MOV 1,£.81 
MOV TEMP1 
JSR hr 
MOV 
MOV B3, TEMP1 
JSR Be Sapan 
MOV TEMPLE 
MOV )+, TEMP 
MOV see, Te STHPS 
CMP H.AO,E.AO 
BEG 2s 
MOV ue SESCAPE 
» MOV \,- 
RTS 
BIT #SW9, ISWR 


;PASS MSGS TO BE TEST ir 
; BUMP RETURN ADDR TO 1ST ERROR 
;GET ALL ACTUAL DRIVE & CONTR STATUS 


;SET UNIT # 


;ADD DRIVE TYPE 
;SAVE TEMP1 


;GET PARITY FOR MSG AD 
;GET PARITY FOR MSG Al 
;GET PARITY FOR MSG A2 
;GET PARITY FOR MSG BO 
;GET PARITY FOR MSG Bl 
;GET PARITY FOR MSG B2 


;GET PARITY FOR MSG B3 


iSAve ESCAPE 


s TEST. "se AO 
E TUP CAPE 
Etat” stu esc 
3&8 RETURN a MAINLINE ERROR 
;RET HERE FROM MAINLINE ERROR 


SEQ 0104 


CZREJEO UNIBUS RK& DR PRT3 
CZR6JE.P11 25-JAN-78 12:08 


00S432 
001176 


VertZan~sSa 
—On 
Nes 
SS 


153314 


WUT UU 


005434 
001176 


SECC SCLCSCCLC ECL ECL 


LLL 


153256 


uw 
<£ 
LN] 
N 


SoRBoRopoe ys 
g 


eae yt 
om a we Bw Be 


UNIO UU 


00S436 
001176 


153220 


001504 


001S04 


001S04 


- 


WONOULLuH-O 


001176 


001176 


WUT UU un un 
WUT UU uuu 

Le ame ~een Beane 
We 


026024 005737 001502 


| 
1 
' 


MACY11 30A(1 
GET 


es: 


4S: 
SS: 


73: 
8S: 


10S: 
11S: 
12S: 


13S: 


14S: 


15S: 


20S: 


0S2) 
VALUE 


oa 


OM 2220 
ma uecou 


ADD 


oo0w nena 
papas 4 
BDOADO- 


WWM 
D2wo- 


-JAN-78 12:16 PA 195 
SOFTWARE SWITCH REGISTER 

20S 3&8 BR IF_LOOP ON ERROR 
#2, (SP) *BUMP RET ADDR TO NEXT ERROR 
H.B0,£.80 ; TEST MSG BO 
84S, SESCAPE ;ELSE SETUP ESCAPE 
(SP5,-(SP) :COPY_RET ADDR 
PC ?& RETURN TO MAINLINE ERROR 
#SW9, ISWR ;RETURN HERE FROM MAINLINE ERROR 
20$ *& BR IF LOOP ON E 
#2, (SP) :BUMP RET ADDR TO NEXT ERROR 
H.Al,E.Al ; TEST MSG Al 
#7, SESCAPE : 
(SP},-(SP) 
PC 
#SW9, ISWR 
#2, (SP) 
HgieeeL = sDatTe"Se 
#10$, SESCAPE : 
(SP); =(SP) 
PC 
#SW9, ISWR 
#2, (SP) 
#7 .A2, CHKFLG ; TEST MSG A2? 
PC, RCYLD :PUT INFO CYLDIF, DO NOT CHECK 
#7. 82, CHKFLG j TEST MSG Be? 
PC,RCYLA :PUT INFO IN CYLADD, DO NOT CHECK 
#7 83, CHKFLG ;TEST MSG B3? 
PC, RSEC ;PUT INFO IN SECTOR, DO NOT CHECK 
PC’ RHEAD :PUT INFO TN HEADA, DO NOT CHECK 
SIPS, SESCAPE ;RESTORE ESCAPE 
#STACK, SP ;RESET STACK PTR 
STMPS, SESCAPE ?RESTORE ESCAPE 


i THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 


&kcERR: TST 


BYPCERR 


I.E£.: IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID 


SEQ 0105 


CZREJEO_UNIBUS RKE DR_PRT3 MACY11 30Q(1052)_ 2@5-JAN-78 
CZR6JE.P 25-JAN-78 12:08 GET VALUE FOR SOFTHARE Si sce te SEQ 0106 


S524 aes 001025 BNE 4§ 
5525 026032 032737 100000 005340 BIT #CERR,HCS1 
Ee 5 N BR IF CERR 
026044 032737 004000 O0S340 1S: BIT #CTO,HCS1 = ie wat 
bea) Sess toseit PRGor sf, ‘ HBR, ERKOR, nec A & B INVALID 
RTS PC > 
2233 026060 032737 010000 o0s342 2S: BIT #NED, HCS2 
5535 026066 001401 BEQ 3$ ;BR_IF NOT NED 
026070 104212 ERROR 212 *NED ERROR, MSG A & B INVALID 
9260 737 001000 oos342 3S: BIT #MDS,HCS2 
i 1401 BEQ Ng 
Beuo 026102 104213 ERROR 213 ;MDS ERROR, MSG A & B INVALID 
: 026104 000207 4S: RTS PC 
44 
4S THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 
seus :IT THEN WAITS FOR CONTROLLER READY 
eed ;IF ROY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 
5550 ' 
1 GSTAT: MOV TEMP1, TEMP 
é abe Bt 352 p69328 000010 HOV SUNI PaKesecrs) i RORRENT DRIVE 8 
5S 026120 012737 O00001 005340 MOV 
S554 026126 004737 O24446 JSR PC LoRy HC 300 SEL (STATUS) CMD & GET CONTR RDY 
2 136 2042 7 ERR 4 *RDY NO T BY END OF SELECT DRIVE CMD 
1 005376 MOV (SP)+, TEMP RESTOR TEMP1. 
3037 140 000207 RTS 
sss iTH S ROUT S STAT ALL ORIVE REGISTERS (MSG AD-A3, BO-B3) 
a LPOUNTRBLCER REGISTERS. 
14 3 76 dew MOV TEMP1,-(SP) 
2 Bee ive Bours? 76 JSR pe Fs ea CONTR REG 
564 i 12765 i oo0000 mov acttR, KCS1(RS) ; CLEAR CONTR . 
Be 


RDY NOT SET BY END OF SELECT DRV CMD 


gpsaes gosugy yp” fiee.t-g STORE Hg 


é 
4 
ra 
~ 
N 
m 
D 
“Ne 


- 
o 
000 ocO- 


i 
5572 o262 12765 100000 oj0000 MoV acctR, RKCS1(RS) 
2253 BS es 13562 haunt Boose MOV SONA Cmnt ¢ 5 ;SELECT WORD 2 
5575 026240 004737 026372 JSR PC,GSTATe ;ROY_NOT_SET . > i 
2238 PSP Sue bi 4945 005366 005420 fou hnke, H. Re BP oRE Se A , 2°” no ee _ 
5578 026254 013737 005370 o0S422 MOV HMR3,H. Be PSTORE MSG BS 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 107 SEQ 0107 
CZR6JE.P11 2S-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 


BEEE55 BISSEE ABTe22 BEGET Rov SUNT RKCSeCRS) 


Oe6e76 Ol age 000026 MOV ;SELECT WORD 1 
OR? 2 za Pe oi Te 
1 ROR 117 ;RDY NOT = aad END OF SELECT DRV CMD 


813737 Goss70 Oosuie NOV HRS: 6 STORE Mec Bl 





012765 100000 000000 MOV #CCLR,RKCS1(RS) 
0137 oo1e28 000010 MOV TT ,RKCS2(RS) 
nh 2RBor Pe ;RDY NOT SET BY END OF SEL DRV CMD 
1 005366 005410 Vv HMRe, H. AO :STORE MSG AO 
013737 005370 oOSs4le MOV HMR3, H. BO :STORE MSG BO 
012637 005376 . MOV (SP)+, TEMP1 ;RESTORE TEMP1 
RTS PC 


eee _ 


p- 053737 O01 70 00s340 Bi 1 ees t cRS) 
& ihe Bgries Beers ie al iRer THERE TE NOT 4 & Be DRIVE REGS ONLY 
4 eerie ooo0de ge, (SP) T 


iy 

: INE saA YSTEM CLEAR & WAITS FOR CONTROLLER READY 

Hr FRO ee S NOT TORECET HE END OF THE TIMEOUT, AN ERROR IS FLAGGED. 
TINE CKS FOR CONTROLLER ERROR (CERR) 


GSTATe: 
; AP CDT_IF RKO7 
5 STATUS 


ees evra gs 


5610 iT THEN R GETS CURRENT STATUS & CHECKS 
eis TURN Ip b TERCe CE TOLEAR 
14 026436 012765 o00040 000010 sedge MOV SSCLR RKCS2(RS) ;SUBSYS CLEAR 
5615S O26444 013737 001424 005376 MOV TENPI 
{$ Seq i. 2RR if POON 
: ates ERROR ain + semiaciele Y NOT SET BY ENO OF SCLR 
i uaa CCR KNAL RSS SGURBENT DRIVE 8 
026472 004737 026106 ISR PC athe :GET STATUS 
4 @a7 100000 o0s340 Bi #CERR,HCS1 :CHECK FOR CONT ERROR 
026510 062716 oo0002 1S: ADD #2, (SP) ;SKIP OVER ERROR 
020 RTS PC 


READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR’ 
026516 O1e7 es 000003 o00026 RDSEC: Mov #3, RKMRICRS) ;WORD 3 


See 
: 


JSR PC’GSTAT 
Boe 739 5370 001422 tov rcas SECTOR 
Bey GeEeds poss? OoInee OO BIG ACA SECT? SECTOR sustiry 
E635 O26550 006237 OO0l4ee e5R SECTOR : SECTOR 


"te 


"4 


CZR6JEO UNIBUS ag DR_PRT3 MACY11 30A(10S2) 2@S5-JAN-78 12:16 PAGE 108 SEQ 0108 
CZR6JE.Pil 2S-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 


g265s4 7 oo14ee ASR SECTOR ; INFO 
7 Ool4ee ASR SECTOR 

026564 RTS PC 

a 


i 
i 


} READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ 


READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN ’°SECTOR’ 


eee 

2238 
g 
3 
i 
q 
a 


| Bbc O26566 12765 ggooge 000026 ADCYLD: Nov 82, RKMRI (RS) ;WORD 2 
| Beu8 b26000 ee BoS366 001376 MOVs HNRe, CYLDIF 
pb4G 37 2660 001376 BIC MASK1,CYLDIF 
Be4 4 13 ASR CYLDIF ;RIGHT JUSTIFY 
4 1376 ASR CYLDIF :CYL DIFF /OFFSET 
564 001376 ASR CYLDIF : INFO 
Be 901376 ASR CYLDIF 
001376 012656 CMP CYLDIF , MASK ;CHK TO SEE IF RET IN COMPL. FORM 
56 42 1s :BR IF NOT 
56 44 001376 ch CYLDIF :CLR IF YES 
| ey 50 1S: RTS PC 
26 !READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘CYLADD’ 
| 56 12 000026 ADCYLA: MOV #2, RKMRICRS) ;WORD 2 
5 7 61 PC’GSTA 
4 137 901 MOV HMR3, CYLADD 
i i 1400 BIC maski. CYLADD 
001400 ASR CYLADD ;RIGHT JUSTIFY 
7 001400 SR YLADD ?CYL_ ADDR 
eee 319 0062 Ob 1400 ASR EYLADD _ 
S666 pSeo40 000207 RTS PC 
Bb68 tREAD THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ é 
70 722 013737 005420 001376 RCYLD: MOV H.A2, CYLDIF 
7 7 237 2660 001376 BIC MASKI,CYLDIF _;CLEAR UNWANTED INFO 
7 7 1376 ASR CYLDIF ;RIGHT’ JUSTIFY 
7 74 1376 ASR CYLOIF 
74 1376 ASR CYLDIF 
7S 001376 ASR CYLDIF 
5679 ee : 001376 012656 CMP ‘CYLOIF , MASK ;CHK TO SEE IF RET IN COMPL. FORM 
78 abe 001376 ane CYLDIF *ELSE CLEAR 
3679 358 000207 1S: RTS PC . 
pee! !READ THE CYL ADDR IN H.B82, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 
pes: 026774 13737 422 001400 ACYLA: MOV H.B2,CYLADD 
7 1 001400 BIC MASKI.CYLADD ;CLEAR UNWANTED INFO 
568s 701 37 001400 ASR CYLADD sRIGHT JUSTIFY 
Bb86 2014 O06 37 001400 ASR CYLADD 
7 237 001400 ASR CYLADD 
7024 006237 001400 ASR CYLADD 
G2 PC 
| 


CZREJEO 
CZR6EJE.P 


_ 


wo. 


gun wn 
ROSS ooh oD OD 


7 
a Sere 
ae i 
5707 Be7ii9 
A 
710 
ou 
713 7116 
714 7124 
715 e130 
ects 71 
$71 
BG ils 
ee 7152 
25 7154 
7 7160 
5764 7166 
Bs e721 70 
726 7174 
eee 027176 
57 Oe end 
2s 7204 
731 
$73e 
a 
Ee 
5736 
5737 027206 
pe ire 
re see 
741 
S742 027230 
5743 Oe? 34 
S744 7e42 
5745S 7244 
5746 Oe7eS0 
5747 027eS 


RK& DR_PRT3 
2S-JAN-78 12:08 


a3739 T7701? 
q 


4 
4 


013737 


ras 
ul 
lato 
io mo 


8 
= 
£ 
fu 
fu 


MACY11 30A( 1052) 


’ 
’ 
5 
; 
005376 f 
oo0021 


oo000de 1 


oo0de1 


’ 

; 
005376 F 
005400 


o0S400 


oos4co 


2S-JAN-78 12:16 PAGE 109 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV H.B3, SECTOR 
BIC #4C<M. SECT>, SECTOR 
ASR SECTO! 

ASR SECTOR 

men BECTON 
Rise 


MOV H.83, HEADA 
BIC ##C<A. HEAD> , HEADA 
ASR HEADA 
HEADA 

TS PC 
CTOR 17 

IF NOT FOUND 
+4 IF FOUND 
MOV TSOOO, TEMP1 
JSR PC RDSEC 
CMP SECTOR, #17. 
BNE 2s 
ISR PC, RDSEC 
CMP eTOR, #17. 
BEQ 
JSR PC, RDSEC 
CMP SECTOR, #17. 
BEQ 3 
DEC TEMP. 
BNE 1 
RTS PC 

#4, (SP) 

Ree PC 


SIRED CYL DIFF 
IF NOT F 

6 IF F 

MOV TSOOO, TEMP! 
JSR PC, RDCYLD 
CMP cYLDIF, TEMP2 
BNE 2s 

ISR PC, RDCYLD 
CMP cYLDIF, TEMP2 
BEQ 3$ 

ISR PC, RDCYLD 
CMP cYLDIF, TEMP2 
BEG 3$ 


sCLEAR UNWANTED INFO 
;RIGHT JUSTIFY 


-CLEAR UNWANTED INFO 
sRIGHT JUSTIFY IT 


;SETUP_ TIMEOUT 

;READ SECTOR 

; TEST FOR SECTOR 17 
;BR IF NOT 17 


;BR_IF_READ SAME TWICE 
;ELSE TRY 1 MORE TIME 


;BR IF 17 
; TRY AGAIN 


;SKIP OVER ERROR 


;SETUP TIMEOUT 


; TEST FOR CYL DIFF 
;8R IF NOT FOUND 


;BR_IF_READ SAME TWICE 
;ELSE TRY 1 MORE TIME 


SEQ 0109 


GOS 


CZROJEO. UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2s- JAN-78 12:16 PAGE 110 SEQ 0110 
CZR6JE.P 25-JAN-78 12:08 GET VALUE FOR COF HARE SWITCH REGISTER 
74 
74 7 7 005376 2s: DEC TEMP 1 
Bra8 o27eea onssar mee Freep 
eres 027266 000207 RTS PC 
3 027270 062716 oo0006 3S: ADD #6, (SP) ;SKIP OVER ERROR 
5754 027274 000207 RTS 
3755 
‘ROUTINE TO F HE N RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
oe ENTE WITH FINE TA ee CONDE N TEMP 
5759 : RETURN NOT FOUND 
5760 :RETURN+2 IF FOUND - SKIP OVER ERROR 
Zee 7276 012737 177777 S376 FHDHM: MOV 8-1, TEMP1 sALL_1’°S 
: §5o508 Biss 5 b00001 ppaaee MOV #1,RKMR1(RS) :WORD 1 
5764 027312 004737 026106 1S: JSR PC; GSTAT 
265 g 6 e732 000040 005366 BIT 80. HOHM, HMR 
576 7 337 005376 DEC TEMP1 
as 1367 BNE 1 
g27334 905337 o0S400 DEC TEMP2 
e771 5340 0 ; 07 pve we 
2773 Os7344 062716 o00002 2s: ADD #2, (SP) ;SKIP OVER ERROR 
57 a :ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE SMS 
£777 *RETURN IF NOT FO 
5778 :RETURN+2 IF FOUND: SKIP OVER ERROR 
7 7 12737 72 S376 FLOAD: MOV #250. , TEMP1 
3 i O573°5 piss, S pepaar 00026 MOV $i RKMRT CRS) ;WORD 1 
57 7 737 026106 1S: JSR PC; GSTAT 
57 73 737 010000 o0S366 BIT #0: LOAD, HMR2 
784 74 1 BNE es 
7 37 005376 DEC EMPL 
57 001367 BNE 1 
578 oaig 909 RT as 
5788 741 ats ooo002 2s: B08 #2, (SP) ;SKIP OVER ERROR 
3783 7416 . 000207 RTS 
793 ELL R TABLE WITH 66 WORDS OF VALID HEADERS 
2 N ATER Ht 1TH cre oth,’ Sab D0’ 
a ENTER Wed peRnAt IN *FORMAT’ 
738 1004 tuptae: Mov RO,-(SP) ; SAV RO 
7 ca oi Te 001506 Oy RUBTAB RO READER WORD TABLE ADDR 
7 74 BosSB? CLR 1 : i: a; COUNTER 
74 1 001442 o01446 MOV HEAD, HD1 
secs Gena Borage Soi iB 
5803 7450 006337 OO1446 ASL HD1 


CZR6JEO UNIBUS RK& OR PRT3 
CZR6JE.P11 2S-JAN-78 12:08 


eae f 
a 


ee 


CODED ED CODD 


SONS ee aoe 
RRR BRA 
ee aaeaee 
ne 


$831 

ee 027600 010246 

ce Bote Bie 

cm ELS BEEFTS 

5841 027624 012702 
i EH BIG 

S845 027640 pists 


a 
g 


48 O27644 012602 
5849 027646 000207 


5857 027650 010346 
58S9 027652 021227 


001450 


002332 
766808 
003332 


B40800 


177777 


MACY11 30A( 1052) 
GE 


0014S2 


005376 
005400 
o00S400 


2S-JAN-78 12:16 P 


AGE 111 
T VALUE FOR SOFTWARE SWITCH REGISTER 


ASL 


1$: MOV 


THIS ROUTINE GET 


ION F 
:TEST & SETS BITS 14 & 1S APPROPRIATLY 


SECFLG: MOV 


1S: MOV 


HD1 
HD1 ;SETUP HEAD # FOR WORD 2 OF HEADER 
FORMAT, FHT 
FMT1 ;SETUP FORMAT FOR WORD 2 OF HEADER 
CALADD, (RO)+ ;HEADER WORD 1-CYL ADOR 
(R 7 'HEADER WORD i NO 
Pat, ( : FORMAT 
C.SECFLG :GET SECTOR FLAGS 
MP1 
a 
(ear tbe 
EMP1' TEMP 
TEMP2; (RO)+ ;HEADER WORD 3-HEADER CHECK 
ECT 
Rl, w22. BEE BS STR TORS DONE? (66 WORDS) 
(SP)+,R1 aston R1 
CBP )+ RO tRESTOR RO 
P 
S INFORMAT ROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 
ra ;SAVE Re 
;BR IF 20 SECTOR FORMAT 


SBSEZ2H+8. »R2 
BBthi@" tho, AE TURA*RERB™ PEABGSERE EDGE 
#BSE2es+s.,Re ;ELSE RETURN 


StTt9. Pho) SE Ae? BRE 0880 "eechGR 


{9p )9,ne ;ELSE RETURN HERE 


{gp >+,Re ;RESTORE Re 


renee Of HPYn Tre bORESE OF TABLE (BSeceH, BSEseS, EYC.) IN’ TENPI 


RETURN IF COMPARE 


FLGTST: MOV 
18: CMP 


R3,-(SP) ;SAVE R3 
(RE), #-1 ;SEE IF ALL 1°S 


SEQ O111 


5 tal oe me RK& DR_PRT3 MACY11 aa WY 2S-JAN-78 12:16 PAGE 112 SEQ 0112 


REJE.P 25-JAN-78 12:08 ALUE FOR SOFTWARE SWITCH REGISTER 
5860 76 001002 BNE 23 ;BR_IF_NO 
ees 7 012603 nov ($P)+,R3 :RESTORE R3 
586 
2ebe 4 2237 001402 2s: cne (R2)+, CALADD ;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD 
e866 ob Obe670e ooo0002 ADD 4, Re ;GO TO NEXT CYL WORD IN TABLE 
5868 927700 013703 001442 7 3S: Nov, HEAD, R3 ;GET HEAD # FROM FHOTAB ROUTINE 
587 027706 030103 BIS R1,R3 ;ADD SECTOR _# FROM FHDTAB ROUTINE 
587 771 203 CMP (R2)+,R3 :SEE IF SECTOR/HEAD COMPARE 
3873 sik ene ant . iB TNCR PTR TO NEXT CYL WORD 
5875 pSo5 16 ita BR ig ese TRY NENT CYL 
2878 027716 012603 4S: MOV (SP)+,R3 ;RESTORE R3 
78 be77e0 Obe718 ooo004 ADD 84, (SP) : INCREMENT RET ADDR 
eeet 
2 ; 
Ss ‘THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
36s yer AND Ae aires THE INFO IN Harty TABLE 5 BEGIN WITH SECTOR O 
26 o10046 ' SoRT: MOV RO,-(SP) ;SAVE RO 
3377 010146 MOV R1,-(SP) :SAVE R1 

a4 72 p0473 026516 JSR C;} RDSEC 

77 062737 0001 oo1422 ADD #1'SECTOR 

004737 030034 ISR PC; MULTE ;MULT SECTOR BY 6 
01 000204 MOV #132. 

7754 1637 001422 SUB eFoR ;RO-SECTOR TO RO = INDEX 

7760 Ol N01422 MOV 9 sect 
2ea4 027764 052737 OO17le o01422 ADD #RHTAB,SECTOR  ;SAVE INDEX 
5g 777, 001712 ADD #RHTAB,R : INDEX TO BOT HALF OF RHTAB 
5837 075 year 002116 MOV seRT TAG RI : INDEX TO TOP HALF OF SRTTAB 
2800 
5 030002 01202 1S: MOV (RO)+, (R1)+ :PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
5901 030004 02170 4 002116 CMP RO, #RATAB+132. ° 
59s 030010 001374 BNE iS 
2a04 930012 912700 001712 - Mov #RHTAB RO ;PUT TOP OF RHTAB TO BOT OF SRTTAB 
eane 030020 5200397 001422 ) CMP RO, SECTOR 
2307 030024 001374 BNE 2g 
2409 012601 MOV (SP)+,R1 ;RESTOR R1 
5910 £30038 012600 MOV (SP)+'RO ?RESTOR RO 
eaik 030032 000207 RTS PC 
eats 
eis !MULT BY 6. ENTER WITH DESIRED # IN *SECTOR’ 


ener gp RK& DR_PRT3 MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 113 SEQ 0113 


JE 2S-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 
5916 001422 MULT6: ASL SECTOR ;2 X SECTOR | 
e317 2 3746 001422 MOV SECTOR, -(SP) 
918 ee, 001422 ASL SECTOR X SECTOR 
919 630050 Sbeb 001422 ADD (SP)+, SECTOR ity x S)+(2 X S) = 6 X SECTOR 
26 atest RTS PC 
egsp ; 
5923 :THIS R TINE S ENTERED ONLY IF THERE IS A BSE ER ROR AFTER A WRITE DATA 
eed ?CMD, VERI IE THE SECTOR IS LISTED IN THE BSE INFORMATION 
53 tes CYL 410, TRACK 
ease ee CTOR NOT L sTED | IN BSE TABLE, ERROR CONDITION. 
5358 TURNS LISTED, SKIP OVER ERROR 
5950 030056 010446 seme MOV R4,-(SP) ;SAVE R4 
5932 0 032737 010000 005340 BIT aCFMT,HCS1 ;CHECK FORMA 
5335 BSppEL BNE _ 'BR FOR 20 CECTOR FORMAT 
53 :NOTE, 20 SECTOR FORMAT NOT 
e3 ?DONE IN THIS PROGRAM 
5937 030070 012704 002332 MOV H+8. ,R4 
2338 74 4737 030130 JSR Pe, TERRI BEF @RE DETECTED TABLE 
2333 100 7 BR URN Ae HERE I 
5941 1 012704 003332 MOV 25+8.,R4  ;ELSE RETURN 
5942 eiepte 004737 030130 JSR a st RR1 8 SE F_ON — DETECTED TABLE 
E343 030112 o0040e2 BR 3$ +RETURN HERE IF YE 
594S 030114 012604 1S: MOV (SP)+,R4 ;RESTORE R 
eae 030116 000207 RTS PC RETURN Wi THOUT JUMPING OVER ERROR 
348 120 012604 3S: MOV (SP)4+,R4 sRESTORE RY 
ea Baoise 062716 o00002 ADD #2, (SP) :SKIP OVER ERROR ON RETURN 
a 030126 207 RTS PC 
4 i THIS ROUTINE THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST 
5 ; Aue Bse I ABLE FOR TH THE E AeOvE SUBROUTINE. 
ie RETURNS? IF NOT FOUND 
130 1427 177777 teERR1: CMP (RY), #1 ;SEE_IF ALL 1’°S 
5960 p30134 agit BEQ 1$ :BR rf ves ves NOT. ON TABLE 
961 030136 922437 005360 CMP (R4)+, HDC :SEE IF CYL MATC 
142 001405 BEQ 28 :BR IF YES 
144 724 TST (R4)+ +ELSE ADV TO NEXT CYL WORD 
364 14% 0007 BR TERRI :8 TRY AGAIN 
5 150 716 ooo0002 1S: ADD #2, (SP) 
536 4 Bote 020 RTS PC 
eaes 030156 022437 005350 2s: CMP (R4)+,HDA ;SEE IF SECTOR & TRACK MATCH 
5970 030162 001401 BEQ 3$ :BR Y 
5971 030164 000761 BR TERRI :OR TRY AGAIN 


O UNIBUS RK& DR PRT3 
-Pll 2S-JAN-78 12:0 


ae 


a0 
BONER ZON rim 


: 
f 
g 
5 


WODODWDOW 


Behowe wae 
wSe 
ef 
38 


UU UTI UT CU un 


BRBPBBD 
28 
ee 
NONN 
88 88 
58 


37 oosso04 
151050 
30300 005077 151034 


eos 
S 


Be 
o 
a 
938 


MACY11 30A( 1052) 
GET 


001406 


3$: RTS 


PC 


KO3 


2S-JAN-78 12:16 PAGE 114 
VALUE FOR SOFTWARE SWITCH REGISTER 


ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


;BRANCH IF _P-CLOCK preeerer 
;L-CLOCK, ENABLE IN 


iE ENABLE INT re + Be, REP INT 
eit bali’ & RUN 


;SORRY, TIME IS UP 


TURN L OR P CLOCK INTERRUPT OFF 


s BRAD IF P-CLOCK PRESENT 
L-CLOCK, CLEAR INTERRUPT 


eLKON: CLR TIMUP 
ST PCLKF 
BNE 1 
MOV #100, aLKS 
RTS PC 
1S: MOV 8-1 aPKSB 
MOV a13 36, aP 
RTS 
tKW11-L 8 KW11-P INTERRUPT — 
éLock: CLR TIMUP 
DEC COUNT 
BNE 1 
MOV HZ, COUNT 
DEC é 
Ne OCT Imup 
1S: ANS 
:ROUTINE TO 
LKOF: TST PCLKF 
BNE 1 
CLR aLKS 
RTS PC 
1S: CLR aPKS 


\P-CLOCK, CLEAR INTERRUPT 


SEQ 0114 


LOS 
CSREES 2B Gantre is:08 9 °Y!! “BBE UREde FOR Sor taart Sufrch REctSteR S60 O18 


RTS PC 


ge See ea reeies mesma 


. yes a iz TI ae Se EACH TIME be ARRY BIT IS SET 


S| 
gs 
3 
8 
& 


Boo50b000 
ee ee 


Ws AT of}? ROTATES ( TEMP! BACK TO ORIG), 
ie a xa THeD, IE a "ts. SET, INDICATING AN ODD & OF 1 
ue INDICATING. an EVEN # OF 1°S ,THE PARITY BIT - 


WONT £ UT O 


iE In’ FenPl 


030306 o1004%6 dppar: Mov RO =(SP) ;SAVE RO 

T B12? 000021 RE Eaiae CounTER 

Kk Ol 1°S IN TEMP1 
030320 000241 CLC + EP EAR carry 


Steer 
WI) 
Ut 
| ol alae 
rVo 

i 
Pa 
D< 
Daw 
ern 

“Ne . 


00S376 1$: ROL TEMP 1 
1 cc ;BR IF CARRY CLEAR 
1 NC 1 5s KOUNT a OF 1°S 


2s: C R ;SHIFT COUNTER 
ce Ba fers Ef : 
6033 030336 032701 o00001 BIT #BITO,R1 
6034 030342 001003 BNE 3$ ;BR IF ODD # IN RO 


iy UNIBUS RK& DR PRT3 


ZREJE.P11 2S-JAN-78 12:08 


6035 EAN 0S2737 100000 
6036 3S2 012601 


b30386 


032777 001000 
001103 
001110 


OY 011637 001110 
Boo 


Saar 
e 
a 
ta 


10 002 
6055 
Bs 
6058 
Epes 
5 Some ahs 150530 
oo a 
epee 0304 001406 
Ce ER TOE cvoteo 
ers o304%4e 600763 — 
SEE} BS BREZHS 2000" 
6076 
5077 
4 28 
b079 O304S2 005777 150470 
6080 O304S6 104410 
i. 
001403 
epee 76 000207 
6088 
6089 
6090 


MACY11 at wa 2S-JAN-78 12:1 


005376 


1S05S2 


PAGE 116 
ALUE FOR SOFTWARE SWITCH REGISTER 


BIS 8M. PAR, TEMP1 ;SET PARITY BIT 
MOV (SP)+,R1 ;RESTORE RI 
P)+/RC :RESTORE RO 


*ROUTINE TO E L NG ON INTERMITTANT ERRORS 
:WHEN SLPERR Oe Ft Ey OSheR THAN SCOPE ROUTINE 
; IE: MY LOOP MACRO 
ScoPi$: BIT aSW9, ISWR ; LOOP ON ERROR? 

BEQ 1$ iBR NO 

TSTB RFLG HAD ERROR? 

Q BR I 

MOV LPERR, (SP) 

RTI 
1S: nov (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 
:ROY NE TO. INPUT A ’SPACE’ OR 'CONTROL-E’ FROM TTY 

CaN re ONTROL-E 


[RETURN if fF SPACE 


even: TST asTKB sCLERE Done FLA 
me i, | EE Pr 
BEQ 1S ieee IF YES. 
ee RQ, #5 BEE DF, CONTROL -E 
YPE MSG31 Had a 
BR écsp : TRY AGAIN 


By, (SP) 


3 HA 


ROUTINE TO INPUT A ‘SPACE’ FROM TTY 
GETSP: TST asTKB ;CLEAR DONE FLAG 
RDCHR 


MO P)+,R er SAR OFF Tack 
CHP Ro, ASPBAR E Ferg, i 


i tt 5G 1 sgxtT af "Yes 
GR éET TRY AGAIN 
1S: RTS PC 


i THIS ROUTINE IS ENTERED BY TYPING A CONTROL-C. 
:IT IS USED TO ALLOW THE OPERATOR TO HALT THE CPU WHILE INSURING 


SEQ 0116 


— 


CZREJEO UNIBUS RK& OR PRT MACY11 30A(10S2) -JAN-78 12:16 PAGE 117 SEQ 0117 
CZR6JE.P11 25-JAN-78 13:08 GET VALUE FOR SOFT SWITCH REGISTER . 


£93) ; THAT HEADS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING 
030500 022626 drop: CMP —s- (SP)4, (SP)+ ;RESTORE STACK FROM INTERRUPT 
eG3s 737 026436 STOP1: JSR PC, SUBCLR 
£037 B3pene 1 RROR 24 ;CERR AFTER 
6099 10 737 005322 TST UNLD ; SEE IF HEADS UNLOADED 
6100 14 437 EQ 3$ ;BR_IF_NO 
61 737 oo0042 ST 42 *SEE IF MANUAL OR AUTO MODE 
61 1403 Q ?BR IF MANUAL MODE 
i 401 044037 TYPE MSG74 :PGM ABORT PENDING 
el oboe 044105 18: TYPE ,MSG75 ;HALT PENDING 
1 7” 
ei 030536 004737 026436 . JSR PC, SUBCLR 
3 530542 104024 ERROR 24’ ;CERR AFTER SCLR 
611 44 0327 7 010000 005366 BIT #0. SPIN, HMR2 ;SEE_IF SPINDLE ALREADY ON 
611 S2 1020 BNE 64S :BR_IF YES 
pil3 54 104401 o40032 TYPE ,»MSG29 ?PLEASE WAIT, HEADS BEING LOADED 
6115 2737 000011 o0s5340 MOV #SRTSPL,HCS1 , 
b1ig Ososee bos? 024446 ; JSR PC, DOCMD ;D0 START SPINDLE CMD & GET CONTR RDY 
pit 104143 ERROR 143 :CONTR RDY NOT SET AFTER CMD 
61 : 74 013737 001426 o0S5400 MOV T100 TEMPe 
6 7 025056 JSR PC, FATTI ;FIND_ATTN 
piss 104144 ERROR 144 tNO ATTN AFTER CMD 
61 10 ooso 00s. CLR UNLD 
pie B3BEIg 05097 oossee a, 
1 4 737 005324 3S: TST BADHDR ;SEE IF HEADERS VALID 
el 1466 BEQ 4§ Be IF YE 
ei i 208006 oooo00 hoy BCE R RKCS1(RS) 
SS SN 
61 Odes 737 pone JSR PC, DOCMD ;D0 RECAL CMD 8 GET CONTR RDY 
bl 4 1041 ERROR 124 :RDY NOT SET AFTER RECAL CMD 
1 27 ooo026 MOV #1, RKMR1(RS) ;SELECT WORD 1 
ei 4 7 erates JSR PC’ GSTA 
61 e7 7 020000 005366 Bie #0. RTZ, HMRE 
61 4 RROR 14 ;RTZ NOT SET QURING RECAL CMD 
1 13737 0014 oos4oo 65S: MOV 10, TEMP2 :SETUP TIMEOU 
614 71 7 podoee JSR PC, FATTL :FIND ATTN 
p14 14 I 5 ERROR 55 :NO ATTN AFTER RECAL CMD 
6144 6 0127 000) MOV #CCLR,RKCS1(RS) 
cis Q3070§ B7eE apnea gopenp = BY OSYF- RAPER onves 
6146 0307 1273 0005S 005340 MOV #CLEAR,HCS1 


;ERROR, LOOP ON TEST OR INHIBIT 
;ERROR TYPEOUT BY SETTING THOSE 
; SWITCHES. 


CZR6JEO UNIBUS RK& DR PRT MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 118 SEQ 0118 | 
CZR6JE.P11 25-JAN-78 12:08 GET VALUE FOR SOFTWARE SWITCH REGISTER 
6147 0 004737 o24446 JSR PC, DOCMD :DO DRIVE CLEAR CMD & GET CONTR RDY 
 -B14B peo aa 104151 ERROR i :NO RDY AFTER DRIVE CLEAR CMD 
6149 030 004737 o2s024 JSR PC, TSTATN ‘TEST FOR ATTN 
b151 104154 one ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
| 4 
| eles 
6158 030756 000137 031022 IMP FORM ;WRITE VALID FORMATS 
pies 930762 005737 ooo0042 4S: TST 4 ;SEE_IF MANUAL OR AUTO MODE 
6158 6 001410 BEQ 5 :BR IF MANUAL MODE 
6159 0307 AgaNOl 044142 TYPE MSG76 :PGM ABORTED 
b160 631900 00 g23? 2 cLR $e0PcT. :SET UP EOP TO EXIT TO MONITOR 
b1be 1004 000137 0623734 IMP Hats ;ABORT PROGRAM 
bibs 931010 Lo44o1 044164 Ss: TYP _ ,MSG77 ;CPU HALTED 
b166 031016 nate 010612 IMP STs ;START OVER IF CONTINUE PRESSED 
6168 031022 FORM: ; 
b1g9 .SBTTL UNEXPECTED TIMEOUT HANDLER 
6171 . 
6172 :THIS ROUTINE IS ENTERED IF THERE IS 
eida ; B- NON EXIS BT EMORY (NO SSYN) 
| 6175 : C: STACK OVERFLOW 
girs 3 
6178 031022 011600 SADTMO: MOV (SP) ,RO sSAVE PC WHERE TIMEOUT OCCURRED. 
P1358 031024 0 ney - *GET PC BEF UPDATE 
6180 031026 032777 O20000 150104 BIT #SW13,3SWR ? INHIBIT ERR TYPOUT? 
b181 031034 001005 BNE § YES *T TY 
61 1036 104401 o44514 TYPE EM3 ingoar TESTS xP T.0. 2 PC= 
6183 031042 010046 MOV RO, -(SP) i 7 SAVE RO FOR TYPEOUT 
6185 g31044 104403 TYPOS #100" TYPE=-9cTAL ASCII 
6186 1046 Ob -BYTE 6 >: TYPE 6 DIGIT(S) 
6187 031047 {BYTE 0 ?:SUPPRESS LEADING ZEROS 
6188 031050 032777 OO01000 150062 1S: BIT #SW9, ISWR :COOP_ON ERROR? 
6189 031056 001403 Q ?NO, BRANCH 
6190 O31060 O22626 CMP (SP)+, (SP)+ ?YES, RESTORE STACK 
b13i 031062 000177 150020 IMP aSLPADR 560 to § BRTING ADDR OF TEST 
6193 031066 032777 O40000 150044 2s: BIT #SW14, ISWR :LOOP_ON TE 
cg BslBre Sbsdee aioe — 
6196 ‘ 
6197 031100 oo0000 3S: HALT ; UNEXPECTED TIME OUT OCCURRED 
6138 ?AS INDICATED. YOU CAN LOOP ON 
6200 
6201 
6202 





_ CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2)  2S5-JAN-78 15718 PAGE 119 SEQ 0119 
CZR6JE.P11 2S-JAN-78 12:08 UNEXPECTED TIMEOUT HANDLE 


i 







| 6203 031102 o22626 CMP (SP)+, (SP)+ ;RESTORE STACK 
| be04 031104 000137 023734 IMP SEOP :ABORT TESTS 
be0b .SBTTL MEMORY CHECK ENABLE TRAP 
b208 931110 012737 031124 001176 MEMERR: MOV #1$, SESCAPE 
62 1116 011637 001354 MOV (SP5 , TRAPPC ;STORE PC 
b210 031122 104202 ERROR 202 :UNEXP MEM PARITY ERROR 
1g 11 7 00117 1S: CLR SESCAPE 
bel B3tisd Bo 108 150002 BIT #SW9, ISWR ;CHECK IF LOOP ON ERROR 
6214 031136 001001 BNE 2s :YES, FORCE STACK AND TRY AGAIN 
Bi 031140 oo0002 RTI ‘ELSE RETURN 
114 00 2s: MOV #STACK, SP s INI’ STACK 
psig Satie SAs79$ 795492 IMP SS PERA ag 
6220 .SBTTL RKOG INTERRUPT HANDLER 
be g ll 4 INTER: NOP 
1154 4 NOP 
es if ps Nov ( RO EPC INT OCCURRED 
bSee patie? ney {RAs apy PC Be FSRE OBbate: : 
bee 1164 104401 037004 TYPE MSG6 :INT AT PC= 
e558 031170 O10046 MOV RO, -(SP) +: FOR TYPEOUT 
031172 104403 TYPOS ::GO TYPE--OCTAL ASCII 
6231 031174 006 .BYTE 6 :: TYPE 6 DIGIT(S) 
pss o31178 _ oft0 4 YIE 0 :!SUPPRESS LEADING ZEROS 
031 no02e4 NOP 
6e3S O3le02 Oo00e4 NOP 
bese 031204 00 RTI ; 
bs .SBTTL POWER DOWN AND UP ROUTINES 
62 


; “OWER DOWN ROUTINE 
nantes 031220 000024 SPWRDN: hg #SPWRUP,PWRVYEC ;SET UP VECTOR 


vies 


ay 
S88 
fururo 
Er 


it 





a 6 BR .-2 ;HANG UP. 
bee ;POWER UP ROUTINE 
6248 005037 031272 SPWRUP: CLR SPWRCT ;WAIT LOOP FOR TTY 
p50 fee 031272 1S: N CT sWATT THE INCR 
1 031206 oo0024 MOV SSPWRON,PWRVEC ;SET POWER DOWN VECTOR 
3¢ 018737 900340 900026 MOV #PR7,PWRVEC+2 ;PRIORITY 7 
127 00036 MOV #PR7'TRAPVEC+2 LOCKOUT ALL INTERRUPTS FOR TRAPS 
016706 901100 MOV #STACK, SP j INE TIAL IZE STACK 
1044 200 TYPE »MSG11 ‘REPORT POWER FAIL 
oooc0s RESET 


000137 012664 JMP PFSRT 


CZR6JEO UNIBUS RK& DR PRT2 


_ CZRBJE.P ll 
031272 o00000 


a 


SeeuS ER 





3 
1274 012746 
ih 031509 010446 
se O31 Bosteb 
74 1310 416 
62 131 
e373 B3l 
6278 Bat Oeeeue 
£540 031350 dosoue 
‘ DOG 1 
x JOE 
6285 = 2 DST ib 
Be ie BBP 
Bat 1 
o s 
tk i 
peat Bisse fee 
62392 031364 000404 
62933 
6296 1378 OOSS16 
44a. 
i 3] 
6300 031402 001401 
0314 
BG Be 
53141 
6304 031414% 006003 
6305 tH 04 
1S oe 
0314 4 
2303 031426 o00241 
p3if 031430 006103 
6312 03143e 062706 
6313 031436 o002e42 
6314 031440 0207 


2S-JAN-78 12:08 


000040 


ooo0de 
ooo00e 


ooco0e 


oooode 


oooo04 


oooo0& 


000010 


MACY11 30A(10S2) 2S5-JAN-78 
POWER DOWN AND UP ROUTINES 


SPWRCT: O 


: DIVISION UTILITY ROUTINE 


a =piyi ben oeren 0 
DIV i3t0N 
Re-R3=QUOTIENT AFTER DIVISION 


*ENTER WITH JSR PC,M.DPID 
h.DPID: MoV #40, -(SP) 
MOV R4Y,-(SP) 
MOV RS -(SP) 
NEG 2¢SP) 
NEG asP 
SBC e(SP? 
ADD ,R1 
ADC 
ADD 2(SP),RO 
BC M.DPSO 
CL -(SP) 
M.DP4O: BSt B3 
: : 
ROL RO 
TST asP “ 
RFR «Ha P 
ADD e(SP),Rl 
abe A 
4(SP),RO 
BR M.DP42 
M.DP41: APD Re, RA 
ADC asP 
R4, RO 
M.DP42: A asP 
T asP 
BEQ +4 
Bee 2 
&(SP) 
BGT M. DP4O 
ROR R3 
BCS M. DP4YY 
ADD RS, Ri 
ADC R 
ADD * RY,RO 
CLC 
M.DP44: ROL 3 
ADD #10,SP 
CLV 
RTS PC 


12:16 PAGE 120 


SEG 0120 


;WAIT COUNT FOR TTY 


OUNTER FOR DIVISION CYCLES 


Cc 

HI 

ib 0.0 ORDER TO THE STACK 
ORM NEGATIVE 
VERSION OF DIVISOR 


;PERFORM INIT SUBT. 


iF CARRY THEN OVERFLOW HAS OCCURRED 
;THIS IS A LONGER LASTING CARRY BIT 


; TEST CARRY 180 CATOR 


iAFEAR GPEoR’ APP ag ELSE _ 
BPP CARRY 


;ADD +(DIVISOR) 

:SET CARRY 

EST The THE VUPDATE INDICATOR 
RaRRy POSSIBLE HERE 


RAE 
R IF MORE TO DO 


;ADJUST STACK SY 4 WORDS 


——— 


El 
g P 


CZR6JEO UNIBUS RK& DR _PRT3 MACY11 30A(10S2) 2S5-JAN-78 12:1 AGE 121 
CZ2REJE.P11 2S-JAN-78 12:08 POWER DOWN AND UP ROUTINE 

6215 

6316 031442 062706 O00006 M.OPSO: ADD #6,SP 

6317 031446 0002 SEV 

pais 0314S0 00020 RTS PC 


SEQ 0121 


CZR6JEO UNIBUS RK& DR PRT3 
CZREJE.P11 2S-JAN-78 12:08 


Be 
a 
Se oats 
Se 
pee baited BHI 
6338 
e 031464 000416 
6341 14 01 ooo004 
i Rie ee 
e3ue 1 19 Boose 
151 434] 
pee tess Blens oom 
634 1 
6350 i ‘A 000400 
BBE EG rcs 
Be Bis aig, mie 
37. 001115 
a4 e 001000 
eae a 001110 
i I ae min 
6365 B31 i3 777 904000 
i 005737 001216 
e3e 16 5337 0011 
70 1 7 001174 
p32 lead b1S757 000001 
637 tytaad Ohee 3? 31730 
6374 031660 105237 1102 
6375 031664 113737 001102 


MACY11 30A(10S2) 
SCOPE 


147456 


oo0004 


147410 
001102 


001103 
147352 
001106 


147320 


001104 


001104 
001174 


001214 


2S-JAN-78 
HANDLER ROUTINE 


-SBTTL SCOPE HANDLER ROUTINE 
Tt yh tht teh bh ae ak a ah gh eat ait gag tt 


EL ie He em THE A 
rien 


12:16 PAGE lee 


Tas, pA WILL 


NCREMENT 
REG. (DISPLAY<7:0>) 


SONNY INT {NTO Sve BI 


RFLG) pa a DISPLAY] 18:08) 
NE ARE: 


ae Shi BY THIS ROU 
seul i=l 
}#Suoe=1 Coop ON ON ERROR os SWR<7:0 
; SCOPE ;;SCOPE=I0T 
SSCOPE: 
CKSWR ;;TEST FOR CHANGE_IN SOFT-SWR 
1S: BIT g8tT14, , ISWR eae PRESENT TEST? 
#eeexSTART OF CODE FOR THE xor TE TER eee 
$xTSTR: BR 6$ 33 1F _RUNN THE SX: TESTER CHANGE 
Mov _QHERRVEC,- (SP) inte ied OFTHE ERROR VECTOR 
MOV aS RRVEC Bie 
TST 35177660 3 
nov ‘3 ps, #ERRVEC HE REST RROR_ VECTOR 
cs: CMP (SP)+, (SP)+ 118 es cx BFTER A TIME OUT 
BR. pert SHERRVEC i RRB ECOR THE PRESENT TEST 
6$:;#8888END OF C FOR THE xor’ +€ Reesee 
BIT faye 33 ON SPEC. TEST? 
ee ,STSTNM 33 The IGHT TEST? SWR<7:0> 
2s: T5f8 ORFLG Hes ON OCCURRED? 
cHPe RMAX, SERFLG j MAX fe ORS FOR THIS TEST OCCURRED? 
Bit 1T09, ISWR 3k ON ERROR? 
7$: NOV RR, SLPADR pie] f ouP ADDRESS TO LAST SCOPE 
4S: CLRB RF ::ZERO T RROR FL 
. cLR eri Fig :iZEB THE: HUMBER ER OF IT RATIONS TO MAKE 
3S: BIT Merri, aSWR ps TrenATIONS? 
TST ASS 
BEG ahs TERAT {ONS 
INC SICNT iE NCRE Ttenati ON COUNT 
CMP STIMES, SICNT + CHECK FPERATIONS MADE 
BGE SOVER ::BR IF T ete REQUIRED 
ss Foy ENN Tres a feasting to Bo 
SSVLAD: INCB T ;;COUNT TEST 
MOVB STSTNM,STESTN :;SET TEST NUMBER na APT MAILBOX 


SEQ 0122 


S 
% 


NNN 


CE EEEEEE EEE EOEE 
S88 
Re ees 
BBIBnoRISeENaaS 


% 


2 be Pe be be an ne be be 
WONT U CWO 


poe ot oe a 


SSEESESELESLSELELE 
Ew NOE ue 
£ ue 


3 oe MACY1L1 3081052) 25-JON-78 12:16 PAGE 123 SEQ 0123 
001106 Mov (SP), ), SLPAOR $1 SAVE SCOPE LOOP LOOP ADDRESS 
poli ze CLR sesc ABE eles AAG escape FROM OR ADDRESS 
601102 003438 sover: Hove 1 Ee ISPLAY tIDISPLAY Te Eso une ERROR ON ar 
11 nov sity, r OB rp BRN ADDRESS 
isEIXES PS 
,° 


si Ars MAX. NUMBER OF ITERATIONS 


Pen, HANDLER ROUTINE 
j sheesnnsesantoonscenasonpngnsosssssssescnatacetens*nesee neat. 


sATHTS BOUTIN Tbh ANCRETEN allt FERRE ee Sore ERROR CAE 


SAND GO TO va Skin 
sre SWITCH OPTI OVIDED BY THIS ROUTINE ARE: 


;#SWIS=1 HAL 
+ #5W13=1 INHIBIT TERROR TYPEOUTS . 
:#5W10=1 BELL ON ERROR 
+ ERROR N ae =EMT AND N=ERROR ITEM NUMBER 
SERROR: oun TF N SOFT-SWR 
001103 7$: f 3 SERFLG SEF oe Lag 
BEQ y 3 3DON THE FLAG GO TO ZERO 
601102 147172 MOV STSTNM, DDISPLAY ; ; DISPLAY TEST NUMBER AND ERROR FLAG 
147162 BIT 8B T10; aSWR Hi: 1BRROR? 
1200 PERE 
ill2 1S: INC He ERRORS 
OO1118 MOV ts) "beserc se Or OF ERROR INSTRUCTION 
001116 SUB st 
147110 001114 MOVB SStaReC § SITEMB STRIP AND SAVE THE ERROR ITEM CODE 
020000 147122 BIT sBIT13, , aSWR gee TWeegur IF SET 
055102 iid C, TYPERR HE RUT RROR ROUTINE 
001205 _ TYPE , SCRLF 
o00c001 001230 CMPB BAPTENV, SENV ;;RUNNING IN APT MODE 
BNE gs ::NO,SKIP APT ERROR REPORT 
001114 o32052 MOVE TEMB, 21S ::SEt ITEM NUMBER AS ERROR NUMBER 
032656 JSR PC, SATY4 ::REPORT FATAL ERROR TO APT 
21S -BYTE O 
225 ag = O os APT ERROR 
147056 2s: TST aSWR >3HALT ON ERhoR 
BPL 33 +:SKIP IF CONTINUE 
HALT i sHALT ON ER H 
CKSWR :: TEST FOR C HANGE IN SOFT-SWR 
001000 147042 3S: BIT #81709, , ISWR 5 LOOP ON ERROR SWITCH SET? 
Q ss IF NO 
001110 MOV SLPERR (SP) ::FUDGE RETURN FOR LOOPING 
001176 4S: TST APE ::CHECK FOR AN ESCAPE ADDRESS 
BEG 36° ::BR IF NONE 
001176 MOV SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2@5-JAN-78 12:16 PAGE 124 SEQ 0124 
CZR6JE.P11 2S-JAN-78 12:08 ERROR HANDLER ROUTINE 





HARACT O BE TYPED ONTO STACK 


ci Bese OiuRte as: Bite fabs, ses 
es 


Ss: 
bY i 2737 o24022 oo0042 CMP #SENDAD, a842 1 AUTO-ACCEPT? 
he ap Hs BNE £3 tTBRanCH Tr NO 
4 O5i054 HALT tt YES 
64 6S: 
6437 635130 oooo02 RTI ; ;RETURN 
6438 .SBTTL TYPE ROUTINE 
pad? i See eee eee eee eee eenar HUST TERMINATE WITH A O B 
4 ine "ROUTINE Wi I Rr a E R L 
bs ER ROUTINE Wi FTORRT BLAMES dN" GF TBE DE" oBe'PI, ER Binacren 
pude LNG ES: SF ttt? KONTAINE THE NUMBER PR Fat BERS ape i ae 
6447 iS ¥CALL: 
6448 ja) USING A TRAP PE teTRucTIon 
408 pe TYPE ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
6451 1 a TYPE 
6452 $i S 
pies ‘ 
4 1 105737 001157 STYPE: TSTB S$TPFLG THERE A TERMINAL? 
485 pag1ae 195737 greg] 1148 THERES 
6457 140 o00000 HALT Hs HERE IF NO TERMINAL 
bu58 142 BR $ AVE. 
ey tue Bt - HOV BBtsps 2 STRING 
sieiaie 

bae 18 2899 eye DBT 001230 CMPB SE TENY SENV i ns Robe 
4 i sett oo0100 001231 Sa «BES TSPOOL, SENVM } i GP Keo OT 

as Bee" be Rees. 
pies i 032202 MOV ,61$ tae REEcice oS For APT 
bYbB bseke O3a080 032646 5 PC; SATY3 $3 
bueS 000040 001231 p43: at fee #APTCSUP, SENVM 4 SSED 

$3 

6471 1005 33 TF IT ISN’T THE TERMINATO 
647, 7 Ts (SP)+ :21F TERMINATOR POP IT OFF THE STACK 
647 1 60S: Vv (SP)+,RO ;;REST RO 
Baza 2 716 ooo00e 3S: ADD #2, (SP) ae te RETURN PC 
eure base e276 000011 4S: cHre BHT, (SP) +t BRANCH IF <HT> 
p78 oseeas 122716 oo00200 cHPB BCRLF, (SP) sna IF NOT <CRLF> 
64 ped Ss (SP)+ 530 <CR><LF> EQUIV 
ie he TYPE. :: TYPE A CR AND LF 
64 105037 032410 CLRB SCHARCNT ; ;CLEAR CHARACTER COUNT 
pugs Soe watts 2344 S FER g8 $TYPE VigeT TPE THIS ¢ Sa 
ay i 4332 bafice ee: CMPB SFteLC. (SP)+ HH g IT me of prea CHARS. ° 
6487 032272 001350 BNE 2s i318 NO GO 


eRe IEO. 1 eo RK6& DR PRTZ 
CZR6EJE.P 2S-JAN-78 12:08 


6488 032274 013746 


WW 
bee 
oro 
NQNN 


Sane 

R 

R28 

aa 
asc 


64 271 

2 ee 

b50e 0013 2 

ces one 

6S05 3c 100376 

6 x 1 

bie fee istce 

6S1 fg ogH0e 

ANS eee 

eet 032406 105227 

6514 10 000000 

6515 le 000207 

6516 

pal? 

6518 

6519 

6520 

6521 

6S2 

6Se 

6524 

6525 

6 

6S2 

6528 

6529 032414 

pes0 032414 “stat 4 

6S Bi 46 

6$33 ee tesa 
Biers 
rt 


001154 
ooo001 


032344 
032410 


0040 
e344 
000007 


146600 
Bo001s 
032410 
oo001e 


0200 
0020 
ooooss 


032630 
000040 


MACY11 30A( 1052) Basten 12:16 PAGE 12S SEG 0125 


032410 


146572 
00000e 


oocode2 


000001 


TYPE ROUTIN 


MOV SNULL , - (SP) ;;GET # OF FILLER CHARS. NEEDED 
7S: DECB 1(SP) + OES A NULL NEED TO BE TYPED? 

BLT % ::BR a NO--GO POP THE NULL OFF OF STACK 

JSR C, STYPEC +?G0 A NULL 

DECB $SCHARCNT ; :D9 NOT COUNT AS A COUNT 

BR 7§ : :LOOP 


;HORIZONTAL TAB PROCESSOR 


TER 
;CHARACTER COUNT STORAGE 


8S: MOVB (SP) j ;REPLACE TAB WITH SPACE 
95 JSR Bc, $TYPEC iT A SPACE 
18 az, * SCHARCNT BRANCH TF NOT AT 

ea LGPY est olen ES 
STYPEC: TsTe F] Mi . sev UNTIL PRINTER IS READY 

MOV e(SP) asTPe CHAR TO BE TYPED INTO DATA REG. 

CMP #cR,2tsP) CHARACTER CARRIAGE RETURN? 

cLRB CHARCNT eect NB HARACTER COUNT 
1S: CMPB ar gCSP) $3 S CHARACTER A LINE FEED? 

BEQ STYPEX RANCH IE 

(PC)+ 3 § COUN THE ¢ 
: , 


NCB 
SCHARCNT: . WORD 8 
STYPEX: RTS c 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
ithis"ROuTiNe 1s Use TO CHANGE A 1¢-EIT BINARY NUMBER. TO. AS-OL 


: ATH Al T Y R TO -DIG 
an eet eis Be tte te J NOHBER AND TYPE If. DEPEND NDING ON WHETHER THE 


t SRUMBER Of NEGATIY VE A SPACE OR RIMS Reon WILL BE TYPED 
SREPLAG ae R. LeBDING WILL ALWAYS BE 
ACED re PACES 
i MOV NUM, - (SP) BUT TOHe BINARY N R ON THE STACK 
: TYPDS ROUTI 
STYPDS: 
MOV RO, - (SP) ;;PUSH RO ON STACK 
MOV Ri,-(5P) ;;PUSH R1 ON STACK 
MOV Re, -(SP) ;;PUSH Re ON STACK 
MOV R3,-(SP) He R3 ON STACK 
MOV RS,-(SP) 5 BUSH ON STACK 
MOV #20200, -(SP) He na TCH AND SIGN 
MOV 20(SP);RS :GET NUMBER 
BPL 1$ He F T Is . 
NEG RS > MAKE T Y NUMBER POS 
MOVB #’-, 1(SP) >;MAKE T iy t R : 
1S: CLR RO :?ZERO THE C AN : INDEX 
MOV #SOBLK,R3 :;SETUP THE PUT POINTE 
MOVB 8’ , (R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
2s: CLR R2 ::CLEAR THE BCD NU 


CZR6JEO UNIBUS 
CZR6JE.P11 


6544 4 
pais Baetrg 
ps4? pas ice 


beug 





N3°S0C 
032502 
B50 O3e5C 
e ee 
6 
eSs4 
6 
6 
5 
6 
6 
6560 
6 
6 
6 
6564 
fees 
6 
6 
6 
657 
657. 
657 
6574 
b576 
a 
fezs 
€ 
& 
6 
bee4 
4 
Fee, gato 
6589 SY 
Beat 4 
65 4 
65 
65 
fea Baebes 
beg 704 
6598 032706 
6599 032714 


RK& DR_PRT3 
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166105 032620 


| dl aul aml ameel 
sia 


0001 
0060 
000040 


000010 


ene 
o “I 
<= 


= 


: S 
= 
= 


177777 


fo fe tee pe 


032630 
oo000e 


-_ 
fry 
ore 


000001 
000001 


ooo0001 


033102 
oooo01 
000100 


MACY11 30A( 1052) 
CONVERT 
3$: 


4S: 


177777 


177776 


oooo04 


SOTBL: 


SOBLK: 
. SBTTL 


2S-JAN-78 12:16 PAGE 126 
BINARY TO DECIMAL AND TYPE ROUTINE 


MOV SOTBL(RO),R1 ;;GET THE CONSTANT 
UB R1,RS $ oF THIS BCD DIGIT 
LT 4§ :;BR IF DONE 
INC R :? INCREASE THE BCD DIGIT BY 1 
ADD R1,RS ;;ADD BACK THE CONSTANT 
TST Re ::CHECK IF BCD DIGIT=0 
BNE cs ?:FALL THR if 0 
STB (SP) 3ST L DOING LEADING 0’S? 
BMI 7 ;;BR YE 
ASLB (SP) ;; MSD? 
BCC 6$ ;;BR_IF Ne 
MOVB 1(SP),-1(R3) ji YES--SE THE SIGN 
BIS #’°0,Re *:MAKE THE BCD DIGIT ASCII 
BIS #8’ ‘Re :;MAKE_IT A SPAC If NOT ALREADY A DIGIT 
MOVB Re, {R3)+ ::PUT THIS C TER IN THE OUTPUT BUFFER 
TST (RO)+ i JUST INCRE NTING 
CMP RO, #10 11cH CK THE T : x 
Bt 8 1162 98 pate ote 
MOV R5S,R2 tie, ouE™ sO 
BR 65 :3G0 CHANGE 0 ASCII 
TsTe (SP)+ ;;WRS THE LSD T RST NON-ZERO? 
MOV8 -1(SP),-2(R3) i $:YES-- THE S FOR TYPING 
CLRB (R3) ae T TERRIRATOR 
MOV (SP)+,RS ;;POP STACK INTO RS 
MOV (SP)+,R3 ;;POP STAC:., INTO R3 
MOV (SP)+) Re >POP TACK NTO Re 
MOV (SP)+,R1 ;;POP STACK INTO Rl 
MOV (SP)+’RO : POP STack NTO RO 
TYPE SDBLK + > NOW YPE THE NUMBE 
MOV @(SP),4(SP) ::ADJUST THE STACK 
MOV (SP)+) (SP) 
RTI ;;RETURN TO USER 
10000. 
1000. 
100. 
10 


~-BLKW 4 
APT COMMUNICATIONS ROUTINE 


os PERERA ERERSRRERERRRAREAERAERARARRAERERRRARRRARARRRARAALRRKLE 
033104 $ATY1: Move 


3310 REPORT FATAL E 


033102 §$ATY3: HOVE #1, SnFLG ::T0 TYPE A MESSAGE 
033104 ATV: MOVB #1,SFFLG ;;TO ONLY REPORT FATAL ERROR 
“Mov RO, -(SP) ;;PUSH RO ON STACK 

MOV Ri'-(SP) +;PUSH R1_ON STACK 

rSte SMFLG $ } SHOUL TYPE A MESSAGE? 
001230 cNPe BAPTENV, SENV j OPERATING R APT? 
001231 BITB #APTSPOOL ,SENVM :;SHOULD SPOOL MESSAGES? 

BEG 3$ ;;I1F NOT: BR 


SEQ 0126 


CZREJEO UNIBUS RK& DR_PRT3 


CZR6JE.P11 


g | 


SEREe ESSE nee 


SEEEEEEEES 


wre 


2S-JAN-78 12:08 © 





MACY11 a es 


oooo04 


001210 


033014 
000004 


8 
: 


COMMUNICATIONS ROUTINE 


MOV 


1S: 7eP 
BNE 


2s: TSTB 


3S: MOV 


MFLG: .BYT 
LFLG: T 
SFFLG: . vie 


a4 SP) ,RO 
sasctyPe 
S$MSGAD 
+ 


2S-JAN-78 12:16 PAGE 127 


;;GET MESSAGE ADOR. 


-BUMP RETURN ADOR. 
+3 SEE wok. "BONE W LAST XMISSION? 


Piro"PR6 a MedaReD 


ed 

; 

33F 

;/SUB START OF MESSAGE 
+ LNGTH 

He TH IN MA 

; TO TAKE 


iger LENG gee 


; TELL AP 


; GE 
:pusn bP ont etnc oe 
: ; 127776 MACRO 


aor REPORT FATAL EPROR? 


oe 2 
25.8 3 
igs 
: 


i 
:;GET ERROR 8 


ii TE LAP re UERRORS 


HE T e INTO Rt 
: TACK INTO RO 


APT i? O40 
- SBT BINARY TO OCTAL (ASCII) AND TYPE 
AG AE SE 06 aE AE 2 AE AE A a 0 a a a a aa a a a a aa a aa a aa aa 


jATHES R CSC TT) RUM MBER R AND TYPE IT. 


A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:"$ Yt lttaieae HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


; ¥CAL 

# MOV 
7% TYPOS 
3% . BYTE 
7% .BYTE 
7 

;# 

2 

te 


NUM, -(SP) 


;;NUMBER TO BE TYPED 
55CALL FOR TYPEOUT 
ss Msi TO & FOR NUMBER OF DIGITS TO TYPE 


;;1=TYPE LEADING ZEROS 
;;O=SUPPRESS LEADING ZEROS 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


SEQ 0127 


Cc JEO UNIBUS RK& DR PRT MACY11 specgse 2S-JAN-78 12:16 PAGE 128 SEQ 01228 
ESREIE. Pll 2e Fane 78 13: :08 NARY TO OCTAL (ASCII) AND TYPE 
66 ;*#STYPOS OR STYPOC 
pps? ;#CALL: 
i MOV NUM, -(SP) 7 NU NUMBER TO BE TYPED 
66 g +H TYPON ;CALL FOR TYPEOUT 


{SELYPOC-—-ENTER HERE FOR TyPEOUT OF A 16 BIT NUMBER 


EE 


Vv NUM, -(SP) Ayres TO BE hy 
peed fe TYPOC ;CALL FOR TYPEOUT 
000000 STYPOS: MOV ),-(SP) Prue THE MODE 


eee 


at ITCH 
cee ee 


eixce) bicits 


ITERATION 


033333 033331 
i pee ee 


STYPON: 


-* * 
arate 
ATA 
ee ee ee a er od 


GET THE NUMBER OF DIGITS TO TYPE 
+ SUBTRACT IT FOR MAX. ALLOWED 


= 

® 
t 

> 


£ 


PEE SY SN 

Baeee3 
HEoH 
eee 
REBASA 


aaatatatetatata 


2 


TIFRER LESS PEAR 
RUN 


ea 
333 
“33 
ee 
a 





a ii37b4 L i apye it PERO PILL SWITCH 
1 12(5P);RS Het THE INPUT T NUMBER 
i os fg Ht al 
i 2s: ROL R ::FORM THIS DIGIT 
Ge fee me 8. 
pba} ci Baa? 033332 -_ Bese SonODE tiie fis ore aia 
3 177770 bre 8177770,R3 i URI OF JUNK 
Ge Bes Bie ane Pied bas o 
3 _ BME Fo ks bipone its Beir asclr | 
be fe RE, a HIRE PeaTh dio” ARevor 
67 1 1 O1 033326 ee TYPE Bs 360 YPE THIS DIGIT 
Be a5 ORF 8 LIBR TE Rage To 00 
S INC RY :; INSURE LAST DIGIT ISN’T A BLANK 
pr Be Bos ee 2 “mel 
me pee 8 my Uae 
£398 63331 Biée ooo002 oo0004 MOV 2(SP) 4 (SP) +859 PRE SFack FOR RETURNING 
6711 033322 O12616 MOV (SP)+; (SP) 


CZR6JEO UNIBUS RK& DOR PRT3 MACY11 30A(10S2) 2@S-JAN-78 12:16 PAGE 129 SEQ 0129 
CZREJE.P11 2S-JAN-78 12:08 BINARY TO OCTAL (ASCII) AND TYPE 


B515 83335 es: “BYTE 0 STORAGE FOR ASCII DIGIT 
rie Base Bee per. FEB is Ae pee 
033332 00000 





6717 SOMODE : NUMBER OF DIGITS TO TYPE 
e518 . SBTTL Fs em ROUTINE 

; g « SRSSSRERESRERRSRARARRSRAKEREASRERSSRRESE SARAH RERRRRAARRRARRRR ER 
bree gtk «Ae g ;;NUMBER OF ITEMS IN QUEUE 

2 TKGIN: ‘ / OVTPUT Bounten 

ie fia: Be YTLE BARE Sucve 

7 TKGEND=. 

67 

6728 

£755 oe! iN AT ae IT 2 TY KEY 

e731 SETUP THE I “Hlkbet LIA ENO Fun ON a 1D AdaRD HELE Rupr 
6733  eomaks 

6734 $a JSR PC, STKINT 

73g ;# RE TURN 

6737 033344 033334 $TKINT: CLR 


bs fee fice Ga ga 


; The AGOR : 
i Soe ‘ PAY Tre iheuT se "sores" POINTERS. 
a a ec 
Bray Basdiz Bdoeor CCC100 I4SS3e 
bs 


Ae SHY park ey5° ae L 
;;CLEAR 


Sas ast +s BROR RE thy. K FYBQARD INTERRUPT 
Bae by peel Hid SRSBP*SERAETERRY Pur ran 
zt Heol ReGIRELT? HE Rack HE"PheCcchtbot ™"TeLTARIREBRENE csron 


oo 
N 
£ 
= 
- 
NIN 
-_ 
= 
£ 
<£ 
7 330 
Es 2308883 


Fl 033414 117746 145526 Anconv: MOVB ari99, (ee) 33 PIC KUP THE CHARACTER 
pee basted ioe? baoBoS Md (36), 68 eh al A CONTROL c? 
cree Banas ABI) BEING Fore egRTRinr—HLINTY. Teg Ma 
6759 03 4g 005726 TST ‘ (SP)+ ER UP Stack 

erat Basse RPTL? BBBBGD ss BB a «RSS Sanaa, 
prea 033456 O8e7 37 000176 001140 NP SGUREG, , SWR i iA 90F Tau R SELECTED? 
6766 O33466 2S: 

6767 O33466 022737 OO0001 033334 CMP #1, $TKCNT ;;1S THE QUEUE FULL? 


. 
ss ————————————————eeEE 


COCrror 


WAPI 


aoa 


POO TOKO 


oc 


ooo" 
@OoOwo 


I 


roe 


eh ee 


Ww OD NON FwM-Obe 


COrro 
prefeeteclectie) 
fur 





| 
| 
| 
| 
| 


UNIBUS axe DR_PRT MACY11 (1052) a aoe 78 12:16 PAGE 130 SEQ 0130 
2S-JAN-78 12:08 OUT 





TY INPUT INE 
1004 BNE 3$ ; ; BRANCH 
1200 YPE ELL ::RI Sue ry LL 
7 - TST t Hear com CHARACTER 6 OFF OF STACK 
oo0023 3S: CMP ee Be ey on 
4 145424 CL aSTKS >:DI TTY oF ’Braee INTERRUPTS 
38 TST (SP)+ >: CLEAN 
7 14S416 31S: TSB asTKS ;:WAIT FOR A A CHAR 
BPL 34$ 13 £00 UNTIL ITS THERE 
Arik [ISB nt a achat 
1 cne £5655, bal ii TA ONTROL-@? 
000100 145370 nov #100, a$TKS ii ta TTY KEYBOARD INTERRUPTS 
334 32S: INC STKCNT 33 . T THIS CHARACTER 
140 cnr (SP), #140 3318 11 PER ASE? 
000175 chp (SP), #175 His a a ) TBPEE ee CHAR? 
o90040 BIC #40 RAKE t IT CASE 
ta 30 4$: MOVB ( Pit asTKaIN 33 T IN QUEUE 
3 INC kaTh HH TE T IN 
: 7 033336 033343 CMP TKQIN, #STKQEND ;; TH ND? 
Ole 033342 033336 ROY SSTKQSRT,STKGIN ;: SETHE POINTER 
SS: RTI 33 URN 
See e ease eattet REGISTER Cite: ROTIe.TSESEC ee 
i BSOF THARE Ba ERE - pon TH He 
SERVICE tie T OR_ CHANGE Sa RESTSTER TRAP 
‘ CAL, WHEN OPE TING IN TTY 1hte 
33638 081734 000176 ‘001140 $CKSWR: CMP & G, SWR YT st SOF T-SWR SELECTED 
33642 105777 145276 STB 4s He 5 A A CHAR WAITING? 
3e46 1001¢1 BPL 2s He , EXIT 
117746 145272 MOVB Kg -(SP) ives” 
3654 042716 177600 BIC #40177, (SP) HH iy - 7- IT AgcrI 
0336 021627 000007 CMP (SP), #? b318 T a CONTR 
033664 001300 BNE i put I ott THE TTY QUEUE 
} igontage IE PASEED TO. Tule POINT aOR ELiaeR Tae TTC InTeARUET S ; 
ko NTR TO THIS POINT FROM INTERRUPT SERVICE 


Peta iiah Oe ae Riles eto. 


3666 A597 57 001134 000001 


36 1674  BRANC 
033676 005726 ° + CTEAR T Lente OFF STACK 
pa3ro4 posar? «faesad 15h PC, STKINT , fie TY KEYBOBRD THTERRUPTS 
33710 112737 tate 001135 MOVB ot, SINTAG 4H T PAF ERUPT MOLE INDICATOR 


033716 104401 O34S5S4 TYPE » SCNTLG ;;ECHO THE CONTROL-G (tG) 


CC 


CZR6JEO_UNIBUS RK& DR_PRT3 MACY11 (1052) @S-JAN-78 12:16 PAGE 131 
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6824 722 104401 034561 SGTSWR: TYPE SMSWR ;; TYPE CURRENT CONTENTS 
6825 eb O13 000176 MOV SWREG, -( SP) ; 7 SAVE SWREG FOR TYPEOUT 
B26 1044 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
68 34 401 034572 TYPE , SMNEW ::PROMPT FOR NEW SWR 
igo : eo) it TEE NEN SUR 
105777 145174 7$: TSTB TkS >:CHAR THERE? 
be) B335¢0 108556 BPL 33 :tIF Rot TRY AGAIN 
6833 17746 145170 MOVB a@STKB,-(SP) ; sPICK HAR 
6 34 933522 bass ie 177600 BIC #0177, (SP) : }MAKE F eetT ASCII 
6836 033762 021627 oo0003 CMP (SP), #3 ii 18 IT A CONTROL-C? 
e638 033776 104401 o34s4e EE yscurec i Wes, ECHO CONTROL ~C (#0) 
bB40 034000 e377 001135 oo0001 cHPB SIATAG, #1 ; ;REENABLE TY KEYBOARD INTERRUPTS? 
eae 34016 603993 000100 145126 MOV #100, 9STKS ::ALLOW TTY KEYBOARD INTERRUPTS 
peu 16 000137 030500 gS: IMP STO ?:CONTROL-C RESTAR. 
684S 
68 021687 oo002s 9S: CNP (SP), #25 28 ITA ONTROL-U? 
baMa 0 TDaaor 034547 TYPE SCNTLU >: YES, ECHO CONTROL-U (tU) 
6849 03 062706 o00006 20S ADD bb, SP ? IGNORE PREVIOUS 
B80 034040 000737 196 ::LET’S TRY IT AGAIN 
pees 1 000015 10S: CMP (SP), #15 :IS IT A <CR>? 
6854 penta 1862 16s ’ ?? BRANCH IF NO 
6855 Q Bue ooo0004 Tot 4¢ ) Hoedcd Fee FIRST CHAR? 
pee9 i opoo002 145054 MOV bt P),aSWR 3;SAVE NEW S ‘ 
6858 4 oo0006 11S: ADD a6 SP ?:CLEAR UP ST 
b853 9340 1 oo1e 14§: - TY ‘ st F *?ECHO <CR> AND <LF> 
BBEO O34074 te 0011 000001 Cc SINTAG, #1 $3 SENABLE ry KBD INTERRUPTS? 
bBbe 034104 i etdeg 000100 14S032 - nov #100, 3$TKS pero TTY KBD INTERRUPTS 
6864 114 hatha 032344 165: oA PC, STYPEC 3;ECHO CHAR 
686S 1 021627 000060 (SP), #60 ?:CHAR < 0? 
BBG 1 ened BLT 18$ +:BRANCH IF YES 
686 1 1 000067 CMP (SP), #67 3:CHAR > 7? 
6868 1 is BGT 18s ?:BRANCH IF YES 
6869 034134 042726 oo0060 BIC #60, (SP)+ j SIR P-OFF ASCII 
bart Beiiag Borage oom0e fie” Beenie ie ns Come 
687 O34146 D0b316 ASL (SP) ;:NO, SHIFT PRESENT 
687. 150 1 ASL (SP) = R TO MAKE 
6874 152 31 ASL (SP) $: ROOM FOR NEW ONE 
6875 4154 a4 ooo002 17S: INC 2(SP) *:KEEP COUNT OF C 
6876 160 B18 177776 BIS =2(SP), (SP) *:SET IN NEW CHAR 
6877 164 00066 BR $ ::GET THE ONE 
6878 034166 104401 001204 18S: TYPE SQUES ::TYPE ?<CR><LF> 
6879 034172 0720 BR 20$ ::SIMULATE CONTROL-U 


" CZRBJEO UNIBUS RK& DR PRT3 MACY11 30A(10S2)_ 2@S-JAN-78 12:16 PAGE 132 SEQ 0132 
| CZR6JE.P11 2S-JAN-78 12:08 TTY INPUT ROUTINE 


pee0 -OSABL LSB 


68 
6883 ; poeoetecngenstessanensngtensenesenenssenuesteseneee se eeeeenannTe 
j ATH Cus S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


A CHARACTER FROM THE QUEUE 


ie ROCHR 
bol mpirecenee SHOP af? STRIBPED oF 


oe p004 ooone SROCHR: Mey = PER5 Step) THe Pe aie legs 
368 Bosbee Soo004 cLR 4¢SP)" Heor nen fs on FOR a CHARACTER 
Sie 12746 034220 MOV #64$,-(SP) +: PU Pe ON Sea CK 

i RTI EOP NEW PC AND PS 


64S: 
1$: WAIT ON A CHARACTER 
DE ; CNT DECREMENT THE COMTER 
ogee3? et i ooooo4 MOVB He 1 T,4(SP) HB eer a 
033343 cre TK , WSTKQEND’ | -D C5 OF THE END? 
033342 033340 TKQSRT, $STKQOUT’ : i ABE Oe NB OINTER 


2s 
: aid: Mestbetonnicatoenet’ >: Sovedipoctedtiaisiveliee 
pRTHIS: S ROUTINE WILL INPUT A STRING FROM THE TTY 


Screrereeeh kit 
: 


os 
pretest ery: 
eS 


= 
ON 


sae 
REERNESS 
“ 
ef 


be Mo Mh a Ma My Ma aM 
oes 


310 : IN ss R F 
git 3 RETURN HERE be or ERs TAHaRe TER VuTLL BE ON THE STACK 
gle te HH TOR WILL A BYTE OF ALL O’S 
914 264 010346 SROLIN: MOV Ra 5{SP) $3 
aie Beiase Bre? By aify | mere 
i 034520 1$: MOV #STTYIN, R3 HF ss 
631 034274 Gee/03 034542 2S: CHP agttyintee, R35 FER F FULL? 
p3ig B3q3pe {Bdui8 ; DCHR 4 AD CHARACTER FROM THE TTY 
6 e6i HOVE (SP)+, (R3) :GET CHARAC R 
6 ‘ ; 000177 10S: CMP 8177, trR3) $5 A T 
6923 034314 00571 Tot (SP) fits THIS THE FIRST RUBOUT? 
£985 re ie 7 000134 034516 MOVB #’\,9S HitY a’ Back SLASH 
6 1094 1 0341 1g TYPE 
6927 pete 271 jw MOV b-1, (SP) T THER RUBOUT KEY 
pass 5203 034520 . oe Ra, , #STTYIN TACK efeToste 
baat BSqaue 1113 034516 Fbve ( R3), 9S He TO TYPEOUT THE DELETED CHAR. 
6932 O343S2e 104401 O34Si6 TYPE :GO 
bas Glee Baer} s: fr fle BLA genes om 
6935 034362 001406 ; BEQ ::BR IF NO 


ee nD eae ee AMR 


CZR6JEO UNIBUS RK& DR PRT3 
2S-JAN-78 12:08 


BE 


t 


as 


8 
FF 
8 


a 
Oo 
he 


2m 


= 


== 
ze 


cichcees 


Sang 
cts 
PISoue 


Baabfe 


Si 


ooco04 


MACY11 30A( 1052) 


034S16 


oo000e 


2S-JAN-78 


TTY INPUT ROUTINE 


0) ie 
12:16 ‘PAGE 133 


SEQ 0133 


' 
HOVE = 823,98 ;;TYPE A BACK SLASH 
CLR tSP) ;;CLEAR THE KEY 
7$: cHPe 825, (R3) HE CHARACTER A CTAE u? 
TYPE ; CNTLU i5TY xs ONTROL “U" 
8S: cre s 2, (R3) 8 ae A “tR”? 
a caer 
are ag it 
4$: ire {goes 3 3 TYPE a ven 
3S: nOVB tBa»,9s tt BRAG ie foe” 
CMPB 4s, (R3)+ ; ; CHECK acm ait 
eRe “ER? 1 SUBAR ReToRN LINE Te - 
Tet 185} as +5 T PREY FROM THE STACK 
MOV (SP) ,-(5P) ; {ADJUST THE STACK AND PUT ADDRESS OF THE 
nov 4(SP),eCSP) 4H FIRST ASCII CHARACTER ON IT 
RTI 7 iBE 
9s: - BYTE : aes, oR ASCII CHAR. TO TYPE 
TTYIN: .BLK 22 He BYTES FOR TTY INPUT 
CNTLC: . 3 AliAd ote i $3 
CNTLU: :A 74U7¢15><1e> : CONTROL ne 
SCNT G: - BBC At 18> <1) ::CONTROL “G” 
SMNEW: .ASCIZ 7 NEW = / 
. EVEN 
“Eyen READ AN OCTAL NUMBER FROM THE TTY 
- EEKKKEREKEERRRERRRRRRAASRRRA RAR RRR ER RARER RARER RAERRREE KEKE 
tkTHIS ROUTINE W Nieves AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
iste fret oh EE Rue I BE CHECKED Bgs BEBO. THEY, ARE LEGAL 
iar gue bork Race EGat CHARACTER Eb? ih THE COMPLETE HUMBER MUST 
sf RETYPED” aie INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
| RDOCT ;;READ AN OCTAL NUMBER 
1 i RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 
1 i *:HIGH ORDER BITS ARE IN SHIOCT 
SRDOCT: MOV (SP), -(SP) jj PROVIDE SPACE FOR THE 
MOV 4(SP5,2(SP) :; INPUT NUMBER 
MOV RO, -(5P) ::PUSH RO ON STACK 
MOV R1'-(SP) +:PUSH RI ON STACK 





cere TES UNIBUS Py Ba DOR_PRT3 
JE.Pil AN-78 12:08 
6 010246 
6 04411 
6 1 
base ‘ 034732 
63 005002 
6 1 
a fs 
7oB1 & 000060 
vA 16 000067 
7003 23 
7004 1 
Bo 3 
site Geiere Basins 
5010 177770 
701 1 
701 
at PEE sooo 
7015 710 O1 03474e 
7 18 714% Qle60e 
1 7 1260 
7018 1 
7019 
Piet fee Barre 
70ee 034730 104401 
7023 732 
7024 4734 104401 001204 
pee Erne Sioa 
7027 
7028 
7029 
70 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
FS GRITS APH cc 
set Gare Ble fae 
roue 034762 B1S703 177770 
7043 766 012100 
7044 aA 012101 
704S 034772 005002 
7046 034774 110245 
7047 034776 010002 


MACY11 spe peas on ce 1 
READ AN OC 


:16_ PA 


134 SEQ 0134 


AL NUMBER FROM THE TTY 


MOV 
1S: RDOLIN 


SS: . WORD 
YPE 


BR 
SHIOCT: .WORD 


.SBTTL OOUBLE L 


Re, -(SP) 
(SP)+,RC 
ss 


Re 


BS Bo SPSS 


ose” alantiientete’.' tli’ tet | 
- 
w 


ENGTH BINARY TO Aatie ASCI 


33 PUSH Re ON STACK 
;READ AN paclé Lite 
i EGET ADDRESS OF 1ST CHARACTER 


tO AR DATA WORD 
; ;PICKUP THIS CHARACTER 
33 IF IF ZERO GET OUT 


SURE THIS oe 
it1s AN OCTAL DIGIT 


+ EOP RN RMINATOR FROM STACK 
riSLER THE RE RESULT 


3 5 BOP arck INT Re 


;POP STACK INTO Rl 
+} POP TACK INTO RO 


Pe in. 4 STACK 
A _TeRnin 

THE BAD CHAR. 
on “ce~ 8 “uP” 


; TRY AGAIN 
*HIGH ORDER BITS GO HERE 
CONVERT ROUTINE 


so MMMM MME ME ME ME HEHE HE HEH HE EE EE TREE RRR ERR RRE EA RK ARE RKES 


:&THIS ROUTI 


; MOV 
38 JSR 
RETURN 


1$: MOVB 


WILL CON 
j XUNSIGNED OCTAL ASCIZ 


#PNTR 


PC, wReogz0 


VERT A 32-BIT UNSIGNED 
NUMBER. 


BINARY NUMBER TO AN 


+ OO he Teoh? Lo Die OF BINARY NUMBER 


33 THE ADDRESS oF ‘GH FIRST ASCIZ CHAR. IS ON THE STACK 


AVE ALL REGISTERS 
CKUP THE Baan” R_ TO LOW WORD 
INTER TO DATA TABLE 

LEVEN CHARACTERS 


© Se we ee eews sews ws 
ees wees we we ee wees we 


Rage geats 


C 
Cc 





ZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 25-JAN-78 12:16 P 
ZR6JE.PL1 25-JAN-78 12:08 DOUBLE LENGTH BINARY TO OCTAL 
DEC RY 
7 BGT 3$ 
BEQ 3 
INC 
MOV RS, 2(SP) 
RESREG 
TS PC 
2s: ASR R3 
35: ROR Ri 
ROR RO 
ROR Ri 
ROR RO 
106 ROR Ri 
ats Sn 
esa 000060 ADD a0, Re 


000753 
000016 


SOCTVL: .BLK 
. SBT 


I&THIS ROUTIN 
PxDECIMAL (ASC 
: ePOSITIVE. 


ain CONVERT A 


#PNTR, -(SP) 
PC, a#$0B2D 





7079 035064 afees ‘ $DB2D: SAVREG beni te 
a 2p88 tees 35244 MOV #SDECYVL RO 
70Be 78 19066 0000 MOV RO 2(SP} 

1 1 MOV (R2)+,R1 
7084 104 1 MOV (Re)+'Re 
7 1 1 000012 035162 MOV #10. 4 
7 114 012704 03517 MOV as NPWR, RY 

1 035176 MOV #STNPWR+2, RS 
7088 1 1S: CLR R3 
7089 1 1401 2s: SUB (R4), RI 
70 1 SBC Re 
7091 1 1 Sua (RS), Re 
7092 1 BLT 3$ 
7093 136 3 INC R3 
704 1 772 BR 2s 
7 14, Ol 3S: ADD (R4)+,R1 
70 144 bosS0e ADC Re 
70 146 ADD (RY) +, R2 
7098 0351 eses CMP (RS)+.(RS)+ 
709 0351 703 o00060 BIS #’0,R3 
71 1 11 369 MOVB R3, (RO)+ 
71s BEEIES BBsabc ws: “hiro gre? 
7103 035164 001357 BNE 1$ 


ONVERT ROUTINE 
$GOUNT TTS CP RTE art 

HBR IF TT IS THE CAST iGIT 
BPA OPS PTE HEBER FS" 
;;RESTORE ALL REGISTERS 

HE 


s 
T 
;;POSITION THE MASK FOR THE LAST DIGIT 
pPOSE TE Me pie NUMBER FOR 

33 HE NEXT OCTAL DIGIT 


;;MASK OUT ALL JUNK 
3; MAKE ants CHAR. ASCII 


BR 33 T IT IN Tre, pare TABLE 
ss." 5, RESE DATA T 
TL BOUBLE LENGTH BINARY TO DECIMAL II CONVERT ROUTINE 


6 SE SE 06 SE aE 06 A SE A 9 0 9 a a a a a a a HE 
0 AN UNSIGNED 


-BIT BINARY 


NUMBE 
I) NUMBER. THE SIGN OF THE BINARY NUMBER MUST 


;;POINTER TO LOW WORD OF BINARY NUMBER 


;;THE FIRST ADDRESS OF ASCIZ 
33;1S ON THE STACK 


T 
tt BUT S OF ascis STRING-ON STACK 
TPT CKUP THE BINARY NUMBER 

;;SET_UP TO DO 10 CONVERSIONS 
::ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
;; SUBTRACT TEN POWER 


(BATE ccc 


;;8R_ IF TEN POWER TO LARGE 
3;;ADD 1 TO PARTIAL 


;;LOOP 
;;RESTORE SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
5 5 SNCS PARTIAL TO ASCII 
BONE T 


;;BR TF NO 


SEQ 0135 


Gl 
P 


1 
AGE 


CZR6JEO UNIBUS RK MACY11 30A(10S2) -JAN-78 12:16 136 SEQ 0136 
ERE TE Pil oF aRR ER 13: :08 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

71 1 L (RO)+ ji TERMINAT OR 

51ge 038176 104414 EERE EG :?RESTORE REGISTERS 

71s Bae 76 srveun: juego °° Het 

5 . nese 

7109 160400 160400 ;;1.0€08 

7110 2765 

711 113200 ;;1.0&07 

711 230 

711 i il 041100 ;;1.0£06 

7114 O3S5212 000017 17 

2115 035214 103240 103240 ;;1.0£0S 

o1iS Bes b5u20 1.0€04 

7118 O36e 0 LD 

7119 035224 001750 1750 ;;1.0€03 

at 3 144 144 ;;1.0&02 

5166 34 oo001e2 oo 1.0€01 

7124 035236 O00000 0 ee 

re BSHeEh oe 

7127 O35e44 000014 SDECVL: .BLKB_ ie. RESERVE STORAGE FOR ASCIZ STRING 

7ie8 "SBTTL. SINGLE LENGTH BINARY TO BECIMAL ASCIZ ROUTINE 

7130 i Oe eee a eee ee eee eee ee ee eae eee etn BINARY PARERER TO Oot 

2131 bATuIS ROUTINE WILL CONVERT A 16-81T UNSIGNED BINARY NUMBER AN 

7133 wes _ — 

5133 j gCALL MOV NUMBER, -(SP) ;;PUT BINARY NUMBER ON THE STACK 

7135 + 3 JSR Deo essaco ;;CALL 

2138 $i RETURN :tADORESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 

7138 

7139 035260 016637 oO0002 035310 $SB2D: MOV ecSP), 1$ i; SAVE BINARY NUMBER 

7140 274 0 MOV ; 

7141 eed p3eaea JSR Ba sabBo20 # CALL DOUBLE LENGTH CONVERT 

7142 035276 062716 oOO000S ADD #5; (SP) Y ALLOW FIVE CHARACTERS 

oi: 03530¢ O1 2656 oo0002 m" v i 2(SP) H PICKUP POINTER 

7145 p3e318 000000 oo0000 1S: . WORD Ws 

7146 -SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

7148 - REKKEREEKKARRESRERKRERKARKARKARAARARRRAAARKRKRRKRARR HARRAH RSAARRERAEE 

7149 tATHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 

7151 H : 

7182 1 i MOV WNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 

7153 ti JSR pe aScUPRE 

otee 035314 o1004% SSUPRS: MOV RO, -(SP) ; SAV RO 

7157 035316 016600 oo00004 " MOV 4(SP),RO i BICKU P THE POINTER 

7158 035322 105710 1S: TSTB (RO) + TERNING! EOR? 

7159 035324 001403 BEG 2s tt F YES 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2@S5-JAN-78 12:16 PAGE 137 SEQ 0137 


wo 


035404 005316 DEC (SP) 


Bees eras 000021 2s: Nov 417. ,-(SP) ee Ar ncghpoene 


;SETUP FOR THE tigate LOOP 


CZR6JE.P11 25-JAN-78 12:08 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
r1eR 7 000060 Pe #20, (RO)+ ids THIS 8 AN ASCII “0” ” 
ote3 010037 035344 _ Oby. sé 3S He CF eo 
7164 p3e3a8 reernt TYPE , :3 
71 3S: .WORD O i} Bac POINTER GOES HERE 
71 1 MOV (SP3+,RO 0 
sib 1eb18 MOV (SP)+; (SP) ; RESTORE THE STACK 
res — .SBTTL ANTEGER MULTIPLY ROUTINE’ ’ 
gt? ; 2 teat te eee nnemecamampm acres GCI Romie nine 
5155 :% MOV MUL T PLER, -(SP) 

7174 1% MOV mULT PLICAND, -(SP) 

7175 1 a JSR PC.a 

gi7e i RETURN PRODUC IS ON THE STACK 

2178 ae STACK PRODUCT 

7180 $% TOP LSB’S 

rat yt + +2 MSB’ 

ats B32324 o10046 Ee ae RO, -(SP) sPUSH RO ON STACK 
sige O3E360 BipSuE | oat i 

at 3 ; CLR -($P) Ha eta KEY 
ca 16601 oo00012 nov 1e(SP), Ri PLICAND 
319 mh NEG {&P) ; Hae ne ong TEP .¢AN POSTIVE 
7 3 35376 ieee 0014 1S: MOV 4(SP),Re tiger I 

3} ° = oe wets. itBR Br Pus 
7194 

7 

7 

71 

7 

7 

7 

7 

7 


NN 


2ORe Ese 


7205 


638428 pe5e00 3S: Bcc 4 = :DON’T ADD IF MULTIPLICAND = 0 
4 4$: ROR RO’ j }POSITION THE PARITIAL PRODUCT AND 
o3ee4 ROR R1 3; THE MULTIPLICAND 
4 1 DEC (SP) - $;HAS ALL BITS OF THE MULTIPLICAND BEEN DONE” 
4 001.37 BNE 38 ;;BR_IF_NO 
4 De CM (SP)+, (SP) 33 D PRODUCT BE NEGATIVE? 
4 0014 BEQ 53 :;GO TO EXIT IF_NO 
0354 p05400 NEG RO ::YES--SO MAKE IT SO 
nm 401 NEG Ri 
4y bos?ee S$: ze Loe ;;CLEAR SIGN INFO. OFF OF STAC 
446 O1 000012 MOV RO, 12(SP) :;PUT THE PRODUCT ON THE stack’ (MSB’S) 
4 0101 000010 MOV RL 10(5P) $i b8B” A 
4 1 MOV (5P)+,R2 OP STACK INTO Re 
0354 012601 MOV (SP)+-;R1 ::POP STACK INTO R 
0354 12600 MOV (SP)+'RO >;POP STACK INTO R 
035464 000207 RTS PC 


CZREJEO UNIBUS RK6& DR PRT3 
2S-JAN-78 


C2REJE.P11 
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Bocoosoess® 
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SS62 
S564 
SS70 
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POOR 


atetetata, 


005740 


MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 138 SEQ 0138 


12:08 SAVE AND RESTORE RO-RS ROUTINES 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 

« REKRKRRKRKRERARRAAARARAAEHY RHRKRKAAAARAARARAAARARA LARA RARARAAAAAHAHAAKRAAER 
EAT. RO-RS 


SAVREG 
t EUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


t STOP---(41 ; 
;# 42---(41 
2% +4---RS 
;%# 46---RY 
:#% +8---R3 
j #+10---Re 
;#+12---RI 
;¥+14---RO ‘ 
SSAVREG: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV Ri, - (SP) He Rl ON STACK 
MOV Re, -(SP) ; : PUSH Re ON BTACK 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV R4,-(SP) "PUSH RY ON aTACK 
MOV RS,-(SP) ;;PUSH RS ON STACK 
22 MOV 2etsP),-(SP) ;;SAVE PS OF MAIN FLOW 
000022 MOV 22(5P);-(SP) ;;SAVE PC OF MAIN FLOW 
000022 MOV ge(SP),-(SP) i 7 SAVE PS OF CALL 
o0002e2 nov 2(SP);-(SP) ::SAVE PC OF CALL 
j FRESTORE RO-RS 
: RESREG 
$RESREG: 
oo0022 MOV (SP)+,22(SP) ; ;REST PC OF CALL 
000022 MOV (SP)+, (SP) ;;REST PS OF CALL 
0022 MOV (SP)+, (SP) > ;REST PC OF MAIN FLOW 
022 MOV (SP)+) 22(5P) > REST PS OF MAIN FLOW 
MOV (SP)+°RS >;POP stack INTO RS 
MOV (5P)+;R4 ;;POP STACK INTO RY 
MOV (SP) +, 83 ;;POP aTAcK INTO R3 
MOV (5P)+)Re :;POP STACK INTO Re 
MOV (5P)+;R1 :;POP STACK INTO R1 
nov (SP)+°RO ;;POP STACK INTO RO 
.SBTTL TRAP DECODER 
SE Te TCKUP THE TOMER BYTE OF THe “TRAP” INSTRUCTI 
tk THIS ROUTINE WI PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3; XAND Be it NDEX. eKROUGH THE TRAP TABLE FOR THE STARTING ADORESS 
: xOF THE SIRED D ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:%GO TO THAT ROUTINE 
STRAP: MOV -(SP) ;;SAVE_RO 
ooo0002 MOV Bea) RO ::GET TRAP ADDRESS 
TST otRD) ::BRCKUP BY 2 


CZR&JEO_UNIBUS RK6 DR _PRT3 MACY11 30Q(10S2) 25-JAN-78 12:16 PAGE 139 SEQ 0139 
CZ2R6JE.P11 § 2S-JAN-78 12:08 TRAP DECODER 

5555 Q3eera O0e300 ARQ S eoer TION FOR INDEXING. 

7e74 035576 016000 035616 MOV STRPAD(RO),RO };INDEX TO TABLE 

3976 02 000200 RTS RO ::GO TO ROUTINE 

7277 

7678 ;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 

7280 035604 011646 STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 

7281 606 016666 000004 oD0002 MOV 4(SP5,2¢SP) ;;MOVE THE rn) 

7e8e 035614 900002 ;RESTORE THE PSW 

7364 .SBTTL TRAP TABLE 

7286 STMT TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

728? *BY THE “TRAP” INSTRUCTION. 

a ; ROUTINE 

7291 035616 035604 $TRPAD: . TR 

7 G356e0 032132 STYPE ; ;CALL=TYPE TRAP +1 (104401) TTY "SETA ORBEA 

7 03313e TYPOC ;;CALL=TYPOC RAP+2(1 ide) TY TYPE Oc R (WITH LEADING ZEROS) 

7294 3106 STYPOS ;;CALL=TYPOS = TRAP+3( 104403) R (NO LEADING ZEROS) 

7295 033146 STYPON j CALLS TYPON TRAP +4 (104404) TYPE a R (AS PER LAST CALL) 

z 0 032414 TY ;;CALL=T TRAP+5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 

7e9e 035632 033722 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 

7300 035634 0336 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TES IN 

730 035636 34174 SROCHR ;;CALL=RDCHR #§ TRAP+10(104410) Ty Tv at C T RoROUTIN OUT INE 

73 640 034264 SROLIN $;CALL=RDLIN  TRAP+11(104411) TTY ty IN STRING ROUTINE 

7303 035646 346, RDOCT 5 | CAL =RDOCT #$TRAP+12(104412) READ AN OCT R FROM TTY 

7304 035644 035466 SSAVREG ;/CALL=SAVREG TRAP+13( 104413) RO- T 

7305 035646 035524 SRESREG ;;CALL=RESREG —TRAP+14( 104414) RESTORE RO-RS ROUTINE 

7306 O35650 0303 SCOPI$ };;CALL=SCOP1 TRAP+15( 104415) INTERNAL LOOP ON ERROR 
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-SBTTL SERVICE MESSAGES 


-ASCIT 


-ASCII 
-ASCII 


-ASCII 


-ASCITI 


-ASCIT 


-ASCIT 


-ASCITI 


<CR><LF> /UNIBUS RKO6-RKO7 DRIVE DIAGNOSTIC--PART 3/ 


<«CR> <LF>/CZREJE0O’<CR><LF> 
<CR><LF>Z #4222 CAUTION #44##/<(CR><LF> 


<CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/ 


<CR><LF>/OTHERWISE CARTRIDGE FORMATTING AND, OR THE DEVICE/ 


<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/<CR><LF> 


<CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE: “<CR><LF> 


<CR><LF>/7A. HEADS MANUALLY LOADED’ 


a EEE ee 


ying 
CZRBJE. 


UNIBUS axe DOR_PRT3 
2S-JAN-7 


Pil 8 12:08 


NSNNNNNNN 
Re is 
x 


aoe 

tl 
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=—— 


NNNNN 
i) 
“N 
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NNNNNNNNN 
SR PERO EIS 


“ 
8 
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351 





5 ee 
74 

74 

z4 a 
3h i 
741 

741 

Puls 

mule Bupeeg 
7417 046114 
7418 0Se116 
7419 0Seie0 


30A(1 
SERV 


MSGe: 


MSG4: 


MSGS: 


0S2) 
ICE MES 


-ASCIT 
-ASCII 


-ASCII 


-ASCIT 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


2S-JAN-78 12:16 PAGE 141 
SAGES 


<CR><LF>/B. CORRECT PORT SELECTED/ 
<CR’<LF>/7C. WRITE LOCK DISABLED/ 


<CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF> 
<CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/ 
<CR><LF>/BOTH PORTS DESELECTED/<CR><LF> 


<CR><LF>/CHANGE XXDP PACK/ 


<CR><LF>/CLEAR LOC 40,RESTART PROGRAM’ 


<CR><LF>/DRIVE(S) TO BE TESTED: / 


<CR><LF>/TYPE BUSS ADDRESS IF NOT 177440: / 


<CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210: 


SES 0141 





CZR6JEO UNIBUS RK& OR PRT3 
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ZEGUSH ZENS: 


or 


2S-JAN-78 12:08 





MACY11 30A(10S2) 


MSGE6: 


MSG?: 


MSGB8: 


MSG11: 


MSGle2: 
MSG13: 


MSG14: 


MSG1S: 
MSG16: 


MSG17: 


MSG10: 


2S-JAN-78 12:16 PAGE 142 
SERVICE MESSAGES 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


<CR><LF>/INTERRUPT OCCURRED AT PC=/ 


<CR><LF>/DRIVE O WILL NOT BE TESTED/ 


<CR><LF>/INTERLOCKS TEST/<CR><LF> 


<CR><LF>/REMOVE UNIT SELECT PLUG’ 


<CR><LF><LF>/WILL TEST DRIVES: 7 


<CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF> 


“NONE /<CR> <LF> 
<CR><LF>/NO L OR P CLOCKS PRESENT/ 


<CR><LF>/ALL TIMING TESTS BYPASSED/ 


<«CR><LF>/BYPASSING DRIVE 7 


<CR><LF><LF>/DRIVE 7 
<«CR><LF>/DRIVE SERIAL NO. 7 


<CR><LF>/CARTRIOGE SERIAL NO. / 


SEQ 0142 


0 UNIBUS RK& DR PRT MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 143 
Ee oe fane78 12:08 SERVICE MESSAGES SEQ 0143 


Baeior ; 


MSG18: .ASCIZ <CR><LF>/UNIT SELECT PLUG TEST/<CR><LF> 





MSG19: .ASCIZ <CR><LF>/PORT SELECTION TESTS/<CR><LF> 


MSG21: .ASCIZ <CR><LF>/7AC LOW DETECTION TEST-PART 17<CR><LF> 


BPPPPPIPPIIIFF? 
BoaeaReneegsas. 


22? 
oe 


MSG22: .ASCIZ <CR><LF>/NON-EXECUTABLE FUNCTION (NXF) DETECTION TEST/<CR><LF> 


MSG24: .ASCIZ <CR><LF>/WRITE LOCK TEST/<CR><LF> 


MSG26: .ASCIZ <CR><LF>/7AC LOW DETECTION TEST-PART 2/<CR><LF> 


MSG27: .ASCIZ <CR><LF><LF>/”ALL DRIVES TESTED/<CR><LF><LF> 


4 


for 


— 
oOo fNuwo sc 


——T 


MSG28: .ASCIZ <CR><LF>/MULTIPLE DRIVE DETECTION TEST/<CR><LF> 


2 





MSG29: .ASCIZ <CR><LF>/PLEASE WAIT, HEADS BEING LOADED’<CR><LF> 


1 
le 
2<5 MSG30: .ASCIZ <CR><LF>/VERIFY DOOR CAN NOW BE OPENED & LEAVE IT OPEN/<CR><LF> 


Se ree 


NE —————_ —- —} -—__———_ 


Ble 


SEQ 0144 
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SEQ O14S 


Cle 
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SERVICE MESSAGES 


MACY11 30A(10S2) 


CZR6JEO UNIBUS RK& DR PRT3 
2S-JAN-78 12:08 


CZR6JE.P11 


<CR><LF>/THE PROGRAM WILL ECHO THE UNIT SELECT PLUG NUMBER/<CR><LF> 
<CR><LF>/MAKE SURE ORIGINAL UNIT SELECT PLUG IS INSERTED/<CR><LF> 
<CR><LF>/DESELECT PORT IN USE & SELECT OPPOSITE PORT/<CR><LF> 


«CR? <LF>/7INSERT UNIT SELECT PLUGS, IN ANY ORDER/ 
<CR><LF>/DEPRESS CONTROL-E TO EXIT TEST/<CR><LF> 


<CR><LF>/VOLUME VALID NOT SET/ 


ASCII 
ASCIZ 
-ASCIZ 
ASCII 
ASCIZ 
ASCIZ 


MSC3P: 


oqoownw Semncs Sa eas 


“ur 
ore eaes 


i ee 
at MSG42: .ASCIZ <CR><LF>/DESELECT WRONG PORT & SELECT CORRECT PORT/<CR><LF> 

Ds0040 

b62103 

O4eSe2 





eg 9° 





a signees 
iggrsopranenrie 


ary 
DSESSATASSSTLSSSSESSSSSSE45 


esse runtime mrenrnnr 





——— | 





| CZR&JEO_UNIBUS RK& DR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 146 SEQ 0146 
CZR6JE.P11 25-JAN-78 le: SERVICE MESSAGES 


44 1358 051117 
| 1310 O42S23 MSGY3: .ASCIZ <CR><LF>/DESELECT BOTH PORTS/<CR><LF> 
7647 1316 14 041040 
76 1 117 
aig MSG44: .ASCIZ <CR><LF>/SELECT CORRECT PORT/<CR><LF> 
76S2 1 OY. 
§ MSGHS: .ASCIZ <CR><LF>/CORRECT PORT NOT SELECTED, TRY AGAIN/<CR><LF> 
1 1 


MSG47: .ASCIZ <CR><LF>/VERIFY DOOR CANNOT BE OPENED (DO NOT FORCE)/<CR><LF> 


SIFTING DaeRe 
Pisces ge 


bps pee poe fee 
Nie Ul 


Segenenenan 


Foes 
VEN 
PEPPPPPPAPPEPPPLPPEPE PELE PEELE ELE 


bp UN EEEEECEEEE 
2 


eka 
3 
So 


MSG49: .ASCIZ <CR><LF>/TURN OFF AC POWER FROM BEHIND THE RKO6/<CR><LF> 


= 





Ved zan= 


Pata aaareca 


at Bate ie 030113 006466 
a Re ; MSGSO: .ASCIZ <CR><LF>/WAIT 30 SEC & SWITCH AC POWER BACK ON/ 
1 
1 161 lll 1 040440 

7682 pies is 042527 
7683 Oui 5 1 045503 
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SELECT DRIVE COMMAND/ 


SUBSYSTEM CLEAR/ 
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CZREJEO UNIBUS RK6& DR PRT3 
Cc -Pll 


2S-JAN-78 


t 
t 
+ 
t 
' 


18 3 
6 3; 
+5 


DNO°o 


Pee eee 





T 
12:08 


em 
wl 
feat fem 
ss 


PEP? 
ier 
Twn 


MACY11 30A 


Sze 


ee cee 
m5 


8S 


— eee 
R Row 


cs 
=_— 
_ 


Pe a Sr 


a 


021440 
oy lee 
08 os 


ie 
2 


Z 


ee 
~~ 
LUE of A) 


N“N 
i 
Bae fee ee 


DATA HEADERS 


DHSS: 


DHEO: 


DH61: 


DHE2: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCITI 


G13 


4 R058) —— 12:16 PAGE 162 


/AFTER WRITE LOCK SWITCH DISABLED/ 


/AFTER WRITE LOCK SWITCH ENABLED/ 


/AFTER WRITING WITH WRITE LOCK ENABLED/ 


/CYL # HEADER WORD 0/ 


/AFTER DRIVE SELECT COMMAND WITH EVEN PARITY 


“AFTER WRITE LOCK ENABLED DURING CONTINUOUS WRITING/ 


7RKDA WORD EXPECTED/ 
<CR><LF>7@ WRL WAS WORD/ 
“RKDA WORD EXPECTED’ 


SEQ 0162 


CZR6JEO UNIBUS RK& DR PRT3 
CZR6JE.P11 2S-JAN-78 12:08 





- 
‘eta 


ee ee 


PROT RRTT 
WONOU£Wwl-O 


BECRReER CRU RTOs 


tatubateata 
HEovH-S 


ratatateatatad 
Oba ae 





MACY11 30A( 1052) 


8 

fu 
oe 
=r 


Seon 


eee 


PR RIPR 


bo 
Nees 
ru 


fll 


28 
Be 


28228 
— 
is id 
—s 
WL 


2S-JAN-78 12:16 PAGE 163 


DATA HEADERS 
-ASCIT 
-ASCIZ 
DHE3: -ASCIZ 
DH64: -ASCIZ 
DHES : -ASCIZ 
DHEE : -ASCIZ 
DH67 : -ASCIZ 
DHES: -ASCIZ 
DH70: -ASCIZ 
DH71: -ASCIZ 
DH73: -ASCIZ 
DH74: -ASCIZ 


<CR><LF>/BEFORE WAS WORD / 


<CR><LF>/WRL/ 
/AFTER WRITE LOCK ENABLED FROM AC FAILURE’ 


/AFTER MDS DETECTED IN RKCS2/ 


/AFTER SEARCHING ALL DRIVES PRESENT/ 


/TEST NO. TRAP PC/ 


/AFTER TIMEOUT TO ENABLE WRITE LOCK/ 


/ EXPECT/ 
/ ACTUAL / 
7AD BO Al B1 Ae Be B37 


“MSG A & B IN RKMR2 & RKMR3 RESP ARE INVALID/ 


ZON SECTORS 10, 12, 14, 16, 18 OR 20 CYL 410 TRACK 2/7 


S@3 0163 


TEMS MOLELT ELLE 


CZR6JEO UNIBUS RK& DR PRT3 


CZREJE.P11 


ae 







RERERS 


eeerer 


£ 
De Pas bee ee ee be tee 


EHLERS LRBL 








77 






25-JAN-78 12:08 


MACY11 30A(1952) 
DATA HEADE 


ts 12:16 PAGE 164 


-SBTTL ERROR OUTPUT DATA 


OTl: 


DT3: 


DT9: 


DT13: 


DT14: 


OTIS: 





STESTN, SERRP 
ART HAAS MRS, HER, HDS, HCS1 ,HCS2 


HWC , HBA, HDA, HASOF , HOC , HPOS , HPAT 


STESTN, SERRPC, STMP3,WD1,WD2 
HMR1,HMR2, HMR3, HER, HDS,HCS1,HCS2 


HWC , HBA, HOA, HASOF , HDC, HPOS , HPAT 
STESTN, TRAPPC 

STESTN, SERRPC , TOCYL, RHTAB 
HMR1,HMR2,HMR3, HER, HDS, HCS1,HCS2 
HWC , HBA, HDA, HASOF , HOC, HPOS , HPAT 


STESTN, SERRPC,E.AO,E.80,E.A1,E.81,H.AO,H.B0,H.A1,H.B1 


HMR1,HMR2, HMR3, HER,HDS,HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC, HPOS , HPAT 


STESTN, SERRPC,E.AO,E.60,E€.A1,E.81,E.A2,E.Be 


H.AO,H.B0,H.Al,H.B1,H.A2,H.Be 
HMR1,HMR2, HMR3,HER,HDOS,HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC, HPOS, HPAT 


STESTN, SERRPC,E.AO,E.B0,E.A1,E.61,E.A2,E.82,E.83 


H.AD,H.B0,H.Al,H.B1,H.A2,H.B2,H.B3 


SES 0164 


CZR6JEO UNIBUS 
CZ2R6JE.P1il 


fe fee 
i. 
aie 


ee ee ee 


DODoOow 
NNNNNN 
OM OweD 


RRARAARRAR ARKAAR 
apart anata 
LOT Ee 


S 


BRE 


NNNNNNN 


BBsRo gure 


Bare 
SARRRIIIGG 
Basnane 


NNNN 


aa 


: 


ae 


a 
552 
£vo 


RK& DR_PRT3 
2S-JAN-78 le: 


4 
Obs 4 005366 
3 00S3S2 
Be wens 
00s 
3 
bos 000 
oso 5 
oo 000 
0S104 
00 000 
ooo00s 
000 
oso7ss 
o0e2 000 
053 
ay 
a oe 
Boe ooo 
oooo0s 
osoeeg 
06e 000 
053361 900 
oso eno 
051 5 
00 000 
000001 
002 000 
9 000 
05077. 
oo 000 
05104 
00 000 
oo0004 
000 
oso75 
000 
0S077e 
007 000 
051042 


MACY11 30A(10 
ERR 


005370 
005340 


00S350 
00837e 


Se) 


2S-JAN-78 


OR OUTPUT DATA 


.SBTTL 
OF 1: 


DF3: 


DF4: 


DFS: 


DF7: 


OF 10: 


HMR1,HMR2, HMR3, HER, HOS,HCS1,HCS2 


HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT 


12:16 PAGE 165 


ERROR DATA FORMATS 


3 
.BYTE 
DH 


2,0 
7,0 
7,0 


0,0 

2,0 

3,0 
7,0 
7,0 


0,0 

2,0 

3,0 
7,0 
7,0 


2,0 


SEQ 0165 


K13. 








CZR6JEO UNIBUS RK& OR PRT MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 166 ' SEQ 0166 
ESREJE Pt? 25-JAN-78 12:08 ERROR DATA FORMATS 
007 000 BYTE 7,0 
ooo00s DF le: 
000 “BYTE 0,0 
000 ave 0,0 
osoge 000 “BYTE 2,0 
- 00 000 BYTE 7,0 
105 000 “BYTE 7,0 
000004 DF 1S: 
oso gue 000 BYTE 0,0 
ee 000 BYTE 2,0 
05100 000 aByTe 7,0 
ods 000 -BYTE 7,0 
376E y oooo00s DF17: 
3785 718 000 000 -BYTE 0,0 : 
376 4714 000 “BYTE 0,0 
376 4716 OSO 1 
37¢ 4 000 “BYTE 2,0 
a7 SG oT os 
47, 000 “BYTE 7,0 
726 O51 3 
8797 47 000 ane “BYTE 7,0 
8795 47 oat 000 j “BYTE 0,0 
a8 4 000 BYTE 2,0 
BE 4 0531 
Ts naan 000 -BYTE 2,0 
Se0e os = 000 BYTE 7,0 
i beq 4 a5 000 BYTE 7,0 
4 000007 OF21: 7? 
i0 054 000 -BYTE 0,0 
1 4 DH1 
ig 4764 000 “BYTE 2,0 
1 4 os. DHE 
14 O54 000 “BYTE 0,0 
1 4772 0537 bH7 4 
1 4 000 BYTE 4,0 
a ae OH a0 
Be19 05 050772 DHe . 


a a 


CZRJEO UNIBUS AKé OR PRTZ MACY 3081 25-JAN-78 12:16 PAGE 167 
ESReJE.PLl 25-SAN-7B 12: whee 






BYTE 
speieenicse puzctngzesegeenensensonen SLAKLARAAAALLLASRRARARERE 


pie IR. aRLPEATYP ERR E 


jATHIS. ve bs —_ ¥ tary rr (SITEMB) TO DETERMINE WHICH 
oe PORTED. an ats, “ERROR TABLE” (SERRTB) 
i He lente FINE WHAT TNFORMAT! O BE REPORTED CONCERNING 

JN natalincel teem aetca ‘esheets Aa 


08 ERROR DATA FORMATS 
000 .BYTE 7,0 
DH3 
+ ooo -BYTE 7,0 
36 DF22: 7 
Be 000 .BYTE 0,0 
BE OH1 
BE 000 .BYTE 2,0 
af: OHE9 
ze 000 -BYTE 90,0 
BE ooo Pavte 6,0 
BE 0H70 
BE 000 .BYTE 6,0 
000 BYTE 7,0 
.BYTE 7 
Bg ooo BYTE 7,0 
OF23: 7 
000 sBYTE 0,0 
ooo -BYTE 2,0 
DHE9 
000 .BYTE 0,0 
OH?) 
000 .BYTE 7,0 
ae 0H70 ‘ 
88 000 .BYTE 7,0 
000 BYTE 7,0 
Bese 000 
4 
a 
Bese 
8860 
ess OSSi02 104413 HPERR, SAVREG 
4 rate 72 20000 124026 IT 13, 3SWR ; INHIBIT ERROR TYPEOUTS? 
1i§ 173700 001114 MOVB EMB RO ithe ERROR_NUMBE 
ee! Sad é Uses ROH SRR IRE SPRAY react 
886 S126 006300 ASL 
70 1 ASL R 
Be # o0ssi2 1s AbD Ber RO RODRESS OF ERROR ENTRY 
8873 056140 012037 OssiS4 MoV {RO)+, 28 Shant mer 
Be7s beeive 104401 oo1e0s FRE ScRLF oe RRETORN LINE FEED 


CZR6JEO UNIBUS RK& DR PRT3 
Pil 2S-JAN-78 12:08 


CZR6JE. 


59 


7 


bP OD sub 





SEBSEISISS 99998 


yun 
Renee 


DD 
- 28 






oss17e 
001205 


001205 


MACY 11 gly 


123576 
ooode4 


YPE ERROR ROUTINE 


2s: 
3$: 


8: 


14S: 


ess: 
SPACEe: 
OOT-11 - 


25-JAN-78 
TYP 5 
be (RO+, 4s 
fee RLF 
tS en 
BEQ 20$ 
fbS Bos, 
MOV ela 

nO 

OM 4 
TYPE pSCRLF 
reve RO} $" 
TST 
Rey Hh 
TYPOC 
RES, eACE2 
i 
BLE 
TYPE eee RLF 
TST atkoo 

Q iss 
COM 
iy P " , MS Fes 
TYPE " 
ai fro) 
BBB 46s GRO 
BR 14$ 
TYPE SCRLF 
TST RY 
BNE 10$ 
TYPE SPACE2 
BE REG los 
yal aSW12, aSWR 
Be EFfra, azo. 
BNE 
MOV eet ACK, sP 
IMP ENDRV 
RTS PC 

. ASCIZ/ 

= *$o0sA 


M13 
12:16 ‘PAGE 168 


iim POINTER GOES HERE 
Pe PNB owt oe 
GU PEP TbtfPhe MERE 

; BRANC NONE 


: GFT SIRE oMUNBER. QF DATA WORDS 
;TEST IF a TA FOR THIS HEADER 
HB AYR BRYE EBIB on sracx 

in R i WORDS 
Ne TORS 
{MORE._DH’S? 

; NO-BRANCH 

PYAR TALS SRB 


; INDENT? 


ETE ren 


iH POINTER GOES HERE 
YPE 

EYRERERENT pr POINTER 
;SEE IF END OF OF BLOCK 
; INDENT? 

; NO-BRANCH 

3 YES-TYPE SPACES 

; LOOP 

ets IF EXIT AFTER 20 ERRORS 
a 5 SEE IF HAVE 20 ERRORS 


ES Teale be 


‘2 SPACES 


SEQ 0168 


keno zeo aisus 6 RK rer .o8 MACY11 oY ae Fa Pd 12:16 PAGE 169 SEQ 0169 


; DEC-11-U0DPA-A-LA 


OE ein 
; RAYRARD “nBSSAC HUSE TTS 017 


ag 3 
on Mm 


‘DDB sD 
BOIL 


1 
05537 
oss4 5 100 
0 0000 RO : %0 ; REGISTER 
Bons Rl = “1 ; N 
94 00) Re = %2 $ CONVENTIONS 
894 000003 R3 = %3 
0004 RY = %4 
94 000s RS = “%S 
D000 SP = %6 
0000) PC = 47 . 
348 177776 st = 177776 ;STATUS REGISTER 
000014 é.TVEC = 14 Ta TOR LOCATION 
3o1 000340 0:STN = 340 ony RASK, igyeTus REGISTER 
3 00 0.TBT = 20 REGISTER 
3 000003 TR = gggo03 Re TNS TRUCT Bn" 
4 00 RTT = :RTT INSTRUCTION 
> RS IS Y CONS D E SS WORD 
B35 Resioes In Nor. NPTe PERE BREAKPOINT a oe SE 10 ZERO, AND D SEARCH 
3 : BE USE Efe USED ONS LEAVE TT i aR QORND rT Fag’ BD ac QTHERH Es BoIRTER' (CAD). 
8961 1775) 6.RDB = 77562 ;R DATA BUFFER 
Babe 177560 O:RCSR = 177560 ;R C/ 
96 17756 0:TdB = 177566 ;T DATA BUFFER 
8964 177564 0:TCSR = 177564 $:T C/ 
te 3 
8967 : INITIALIZE ODT , 
8968 ; USE ocdbT FOR A_NO MAL ENTR Y 
368 ; USE 0.00T+2 TO R T - WIPING OUT ALL BREAKPOINTS 
370 + USE 0.0DT+4 TO RE-ENTER (I.E. - FAKE A BREAKPOINT) 
B37 
Banu 
1 .ODT: .STRT ; ENTRY 
care REEVES SOBL19 boon: Be Saat ie 
456 013737 177776 OSSY32 O.ENTR: MOV ST,0.uST -- “SAVE STATUS 
464 013737 18 177776 MOV 0. tvECse, ST Ser. Up Coca s TATUS 
4 7 4 MOV ¢,0.UPC 
8 4 137 IMP 0.BKi 
1 4 }6.STRT: MOV #0. SP T UP 
BiGe3? peeyse MOV SP . USP + PEK THE, SBVED sTac 
1 14 BR -RST1 :CLE N TROLES 
89 2eh5 Bi ate pecg 177716 = nov 8 Gin 50 ADR1 sSBVE REGIST ERE AKPOINT 
Boe? peeese tha MOVB 0:PRI'RY :GET ODT PRIORITY 


eee ea  e—s—“—Sst—e —_—— 


ele) 


ZR6JEO UNIBUS RK& DR PRT3 MACY11 308 1052) 25-JAN-78 12:16 PAGE 170 SEQ 0170 
SRE TE Pll oe Sane7e 12:08 YPE ERROR ROUTINE 
goeg 1 RORB RY ; SHIFT 
1 RORB RY ; INTO 
8330 1 RORB RY POSITION | 
10437 177776 MOVB R4,ST ;STORE IN STATUS 
633¢ 1 O.RSTIL: Mig cPe)+ 
Baad 0127 goonge osS6S40 MOV #RTI,O.RTIT ;SET TO RTI_IF 11720 OR /0S 
4 0.45: CLRB 0.P ;DISALLOW PROCEED 
127 000340 o00016 MOV 00.571, 0. TvEct2 TATUS TO TRT VECTOR + 2 
2 127 056620 000014 » MOV #0. BRK;0. TVEC C TO TRT VECTOR 
76 47 BR 0. RALL ;CLEAR BREAKPOINT TABLES 
Sac0 : SPECIAL NAME HANDLER - 
3001 ; DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 
$003 OSS600 004537 057260 S.REGT: JSR 5,0.GET ;SPECIAL_NAME, GET ONE MORE CHARACTER 
g004 055604 012704 057503 MOV #0. 7L,R4 :TABLE START E 
3008 eee ooe4 O.RSP: cHPe RO, CRA) + Tine TH THE CORRECT CHARACTER? 
900 14 Gee704 057511 CMP #0. TL+0.LG,R4 3 SEARCH DONE? 
3008 1373 BHI 0.RSP AR ONCH HIF NO NOT 
2700 177770 BIC #177770, RO ;MASK OF 
3010 MOV RO,R4 
1 0.SP1: ASL 
301 oss4i2 ADD 89. URO, R4 | + GENERATE PRESS 
9014 OS5640 o00444 BR 0. SCAN ?GO FIND NEXT AG ARACTER 
9015 OS564 162704 057474 0.SP:- SUB #0. TL-7,R4 :CORRECT CONSTANT 
3016 56 006770 BR 0. SPI 
3018 + * HANDLER - OPEN INDEXED ON THE PC 
9020 osseéS50 737 oOS7404 b.orPCc: JSR PC,O. TCLS 
302 Ga5654 10502 MOV RS‘Re s CURRENT ADDRESS IN R2 
902 0556 1202 are, Re 
302 BbbQ Oe ASR 2 ROVE Of BIT TO CARRY 
a0e8 103421 BCS 0.ERR NUMBER 
Bbb4 006302 ASL Re ; ERROR 
3026 005722 TST (R2)+ AND RCRERENT BY TWO 
9027 055670 010205 MOV Re, RS ? UPDAT 
3028 055672 000137 056144 IMP 0.O6P2 *GO FINISH UP 
3030 : B HANDLER - SET AND REMOVE BREAKPOINTS 
9032 OSS&76 005702 $.BKPT: TST Re ;IF_NO NUMBER TYPED 
9033 055700 001406 BEQ 0.RALL : REMOVE BEE AKPOINT 
3034 05570¢ 006204 ASR RY *CHECK IF ODD 
3035 704 103410 BCS 0.ERR : JUMP IF ODD 
3036 055706 006304 ASL RY *RESTORE ONE BIT 
3037 055710 010437 oss444 MOV — R4,0.ADRI :SET A BREAKPOINT 
9039 055714 4 - 6. 
3039 14 000412 BR 0.DCD 
9041 
3042 
9043 OSS716 012737 


t 
O0S7S20 OSS4Y44 O.RALL: MOV #0.TRTC,O.ADR1 ;CLEAR BREAKPOINT 


aa ama Sy 


RAISES SN URI ERER ISSO TON See O TOE an OES 


8 
DNRN 


93039 


yg We — RK6 DR PRT3 
CZR6 


2S-JAN-78 12:08 
oss72e4 o000406 


0SS726 





MACY11 30A(10S2) 2@S-JAN-78 12:16 PAGE 171 


TYPE ERROR ROUTINE 


oo 


Crreres OE 


BR 0.DCD 
COMMAND DECODER - ODT11 


REGISTERS RO-RY MAY BE USED, 
REGISTER RS WILL BE CONSIDERED SAFE 
.ERR: BIS #1,RS ; CLOSE EVERYTHING 
Vv "3, BO ? TO Bg T YPED 
R 5,0:FTYP : 
BSB i ark en apne com Curr CONVERTED OCTAL 
— . 9 
Eth Re ; Re Re 15. THe RUMEER POUR B FLAG 
.SCAN: JSR 5,0.GET :GET A , 
ste 8% SECA Pete i -NUMERIC 
So 8.6 RO ie a ¢ 1 NOT OCTAL 
Bre 8 SEShO an eee es 
ASL RY : 
ASL RY $ 
om pack he 
ay RO, R4 me RY E BITS IN. RY 
BR 0. SCAN te TRY AGAIN 
CLGL: CLR Ri 
LGL1: CMPB RO,0.LGCH(R1) ChE *n “08D Es MATCH? 
Q 0.CGLe Jue ir 
NC Ri NOEX FOR NEXT SEARCH 
CMP Ri, #0.CLGT 315 THE SEARCH DONE? 
BHIS 0.ERR : oops! 
BR 0:LGL1 ‘Roc toet 
.LGL2: ASL Ri MULTIPLY BY TWO 
IMP 90.LGDR(R1) :GO TO PROPER ROUTINE 
.LGDR: O.WRD ; / OPEN WORD 
O:CRET ; CARR a CLOSE 
BeBe I S 
0:0P1 3 <LF> arose OPEN NEXT 
O:ORPC ; + Fates INDEX - PC 
9. BACK ; ¢ orebe 
0:0FST ; O SE on 
O.WSCH ; W 
O.EFF ; E SEARCH cH EFFECTIVE ADDRESS 
Q.BKPT ; B 
O:PROC ; RSCEE 
.LGL = *-0.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 
PROCESS / - OPEN WORD 
WROD: TST ;GET_ VALUE I R2 IS NON-ZERO 
BEG i . WRDA ;SKIP B STHERH 
MOV 4,R 
.WRD1: ASR t MOVE ONE BIT 10 CARRY 


CZR6JE.P11 


CZR6JEO UNIBUS RK6& DR PRT3 
2S-JAN-78 12:08 


1 

1 

1 1 

ii 057174 


be oon 


Ree 


ey 


18d 882586 836687 
134 


a ee be tae bate Bae pan bane be be ee be ae Be 


REO ODDVTU LOM OSSVN LO SoBe LOU SODNTN LO -OS SIR LOLS 


bos7es 057404 
057430 


B07 
0573 


36 


Rrrerree 


ae Bae be ae a pe be pe 


ROO Lie 
a 


004737 OS7404 


Bieces 200 
005304 


th 057174 
200 


: 


es 
ie 


46 


DODDDDDDDDDDDDNDDDNDDNDNDDDNNVDNDNDDDNDNWHNNWVVDHDUW VI DOV DHOWW WWW 


a ee ae ae Be ae ae ae be be ae be be Bee be bn ee eae be ee Be ae be Be Be De mee ae bee be 


MACY11 gt ROUTINE. 12:16 PAGE 172 


0 


0 


b 


b. 


6 


b 


eeereeee CE 


YPE ERROR ROUTI 


-ERRe: BCS .ERR 
ASL 
MOV ,RO 
JSR »9.CADV 


A B -DCD1 
anon: Be SiR, 


PROCESS CARRIAGE RETURN 


-CRET: JSR PC, 2, TCLS 
BR 0.bcD 


PROCESS <LF>, OPEN NEXT WORD 


OPi: J PC.O.TCLS 
TST (RB)4 
.oP2: J5rR 5,0.CRLF 
MOV RS. RO 
J 5,6. CADV 
MOV a7, 
JSR 5,0. FTYP 
BR 0: WRD1 
+ PROCESS ¢, OPEN PREVIOUS WORD 
.BACK: JSR PC,O.TCLS 
TST -(RS) 
BR 0.0P2 


} PROCESS 0, COMPUTE OFFSET 


.OFST: ASR 
BCS 0. ERR2 
roy OU GR 
ney F o’ E TYP 
SUB 6 RY 
DEC RY 

C RY 
Vv R4, RO 
ney BY RE ADV 
Hou Re RS 
Bee Boor 
JS o- OF haoy 
.OF1: JMP 0!DCD1 


SEARCHES - SMSK 


HAS THE MASK 


;JUMP IF ODD ADDRESS 
;RESTORE THE CARRY BIT 


HERRCEUOBEDS ER re 
JSLOSE LOCATION 
;RETURN TO DECODER 


;CLOSE PRESENT CELL 
5 GE RATE NEW ADDRESS 
3 <CR><LF> 

; 


“Bhai 
; TYPE A 7# 
;GO PROCESS IT 


; GENERATE NEW ADDRESS 
;GO DO THE REST 


;GET LOW ORDER BIT 
i GER IF CL CEB 
;RESTORE WORD 

; TYPE BLANK 

; AS A_SEPARATOR 

; COMPUT! 


; 18 BIT OFFSET 

; TYPE 

;SAVE_RY 

;NUMBER IN RO - WORD MODE 


;DIVIDE BY TWO 

; BRANCH if QB0 

;NUMBER IN - BYTE MODE 
;ALL DONE 


Sneke4 HAS THE LWA 





SEQ 0172 


CZR6JEO UNIBUS RK& DR PRT3 





CZ2R6JE.P11 2S-JAN-78 12:08 
ai 
ie 
91 1 
91 1 
916 
He 
31 1 oss440 
aie ine 
ates oss44e 
aie 1217 
a6 s 
a7 ies 
a7 
aise 
a7 
31 
se 057430 
ae cons 
Pee oe oe 
3186 3 057174 
ate ig 
aie 83 
sia Geers a8 
9193 056400 9005203 
$194 0564%0e 005203 


MACY11 30A( 1052) 
TYP’ 


b err: 
0.WSCH: 
0: WDS: 
O.ERRI: 


0.WDSe: 


0.WOS3: 


oO 


.WOS4: 
-EFF 1: 


Oo 


E14 


2S-JAN-78 12:16 PAGE 173 
— ERROR ROUTINE 


BAS POOSSR ME 
=“a<S <<ox4D 


SUSUOUS sets 
wo NO ZHHHrH0OO 
<D<BD<BD<MowMoo<< 


DBDBow 
UE: ~— 


Sa 
io 23am 


“~DDDOW 
££0: = 


ona 
sao 
GIG) 


Wohowotoe 


DWHLH+ +ODN 
my +,B0 


2D 
£< 


DBDDOBDO-wi 
W 


WWMO: O: 


;SET EFFECTIVE SEARCH 


‘BRANCH IF EFFECTIVE SEARCH 


a" 
= 
ms 
= 
=x 
az 
Fs 
w 
zx 


* AND 
>RE-L F_NO MATCH 
j REGISTERS R2,R4, AND RS ARE SAFE 
37 <CR,LF> 

:GET READY TO TYPE 

: TYPE ADDRESS 


3 
* 
= 
3 


2 
: 


; TORE RY 

3 INC Pen TO NEXT CELL AND 
. RETURN 

IS (X)=K? 

; TYPE_IF_ EQUAL 

7(X) TOR 

+ (X) +X 


3 (X) 4X42 


SEQ 0173 


a a 


CZR6JEO UNIBUS RK& DR PRT3 MACY11 ge aE ae = 9 2S-JAN-78 12:16 PAGE 174 SEQ 0174 
CZR6JE.Pil 2S-JAN-78 12:08 YPE ERROR ROUTINE 





9195 4 CMP R3,R4 51S (X)4+X+2=k? 
3136 4 4 ? BEQ 0.WDS3 ?BRANCH IF EQUAL 
$1 41 00 177400 BIC #177400, RO :WIPE OUT EXTRANEOUS BITS 
3133 418 nove RO,RO :EXTEND SIGN 
920 4 fits Ro OD tub glee 
4 INC RO ‘ 
4 ADD Re, RO ;ADD_PC 
4 CHP RO) RY :1S THE RESULT A PROPER REL. BRANCH? 
$50 : PROCESS G - GO 
7 057457 6.G0:  CLRB 0.P sDISALLOW PROCEED 
3508 Ape S84 ASR R4 :CHECK LOW ORDER BIT 
3512 aes Bcs 9. ERR2 j ERROR i: ODD NUMBER 
ia 137 paasa0 177776 nove RS Sin g, ise? UF one PR TY 
1S 126 JSR soo Skat RESTORE ELETYPE 
28 7456 O.TBIT: CLRB 0:T jCLEAR BO 
1 20 os5432 BIC #0. TBT,0.UST : T-BI Fliacs 
1 1 ize 2 oss4s0 MOV @0.ADRI,0.UIN SAVE INSTRUCTIO 
38 13777 75. 176732 MOV 0. TRTC 80. AORI j REPLACE WITH TRAP 
1 0.G02: MOV (SP)+, Ri +RESTO 
9221 012601 MOV (SP)+/R1 ; RO 
9222 1 MOV (5P)+' Re : THRU 
9223 1 MOV (SP)+,R3 
36 1 MOV (SP)+)R4 ; 
2s 1 (SP)+,RS ; 
92 1 MOV (SP)+, SP ; AND SP 
38 13746 5432 MOV Q.UST, -(SP) ; TATUS 
13746 055430 MOV 0: UPC’ -(SP) : 
38 O.RTIT: RTT :CHANGED TO RTI FOR 11720 AND 70S 
9534 ? PROCESS P - PROCEED 
a¢3¢ : ONLY ALLOWED AFTER A BREAKPOINT 
3634 OsesYe 405737 0S74S7 6. PROC: TSTB y= $ CHECK LEGALITY OF PROCEED 
38 i 33 0S74S7 CLRB 0.P ?CLEAR PROCEED FLAG 
32 4 °70e ts! Re on Mas COUNT SPECIFIED? 
32 Ose 10437 S446 MOV RG OCT YES PUT AWAY COUNT 
9240 4 112737 0340 177776 ©.PR1: MOVB #0/STM,ST CE HIGH PRIORITY 
324 O58 004537 0571 JSR 5,0.RStT :RESTORE TTY 
924 112737 000340 177776 0.Cli: MOoVvB #0.STM,ST :SET HIGH PRIORITY 
43 056604 105237 057456 INCB . :SET T-BIT Fi 
44 056610 052737 O00020 os55432 BIS #0. TBT,0.UST :SET T-BIT 
gous 056616 000735 BR 0.602 
9247 ; BREAKPOINT HAND: LER 
9248 : A TRT BREAKPOIN CAUSES 0. BRK T9 BE ENTERED, WHICH SAVES 
9249 : NDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL, 


VARTOU ODDS AND 
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CZR6JE.P11 2S-JAN-78 12:08 TYPE ERROR ROUTINE 





9251 . 
4 .BRK: Vv )+,0. Y TRY 
en esas S-RK: FY SENS BUF HERURPUTL DS Aag™B ENT 
4 036 0.BK1: JSR 0,9.S0R "Pon T= REGISTERS 
gess 37 7456 iste Stace eck a -BI 
3337 13227 955450 176574 v 8: UH. 30. ADR! PKPOINTS 
i 4 r3re 9.PRI sRETRYE I 
3588 99082 oss43e2 nove 8-U5T Rs i phe Be teens BSH HF § 
3ee8 oSS434 0.BK2: nove 9: PRT, RS peace Sra i ont PRTORITY 
9264 - RORB RS SHIFT LOW ORDER BITS 
se fe Hasson 
7777 0.BK3: VB RS,ST : THE § A WHERE IT BELONGS 
3588 £458 ROY 6 GBC, RS GET Pe, i AetWR'Y TO THE TRT 
7 430 MOV 0. uP FRO TH THE SER’ S PC 
3878 pee aq CMP Re’ 9. 1 H LIST 
3574 707M isk 8: S°eyr1 Lune Une E, FOUND STATUS 
3276 ae Mov 0) .E iP, ;ERROR, NOTHING FOUND 
3578 Bes JSR g,0,1vet ;OUTPUT “BE” FOR BAD ENTRY 
9280 000020 055432 BIC 80. 1BT,0.UST CLEAR QUT ANY POSSIBLE FAKE T-BIT 
3280 oss446 0.B2: Bec 9: BF 
BGT 0.1 ;JUMP_IF REPEAT 
ae a Hite | Sip? HERE BREED | 
7074 JSR 5, Q.SvTT ;SAVE TELETYPE STATUS, R4Y IS SAFE 
Ae JSR 2 BE TYP TYPE “B” 
055444 MOV 0: ADR1, RO 'GET ADDRESS OF BREAK 
3290 057174 0.83: JSR 5,0. CADV : TYPE AQDRESS 
3230 oss742 IMP 0.DCD 60 TO DECODER 
3522 : SAVE REGISTERS RO-R6& IN INTERNAL STACK 
$296 057036 012637 os74si b.SVR: Mov (sP)+ Q. XXX Sive REGISTER FROM STACK AND SAVE 
Ret pes BuE 819637 54 MOV 30° F» O.USE SP SET TO INTERNAL epores 
ge43g 05705¢ 010546 MOV RS,-(SP) :SA 
9300 4 010446 MOV R4; -(SP) : REGISTERS 
g 7 010 MOV R3,-(5P) :1 
g 1 MOV Re, -(5P) + THRU 
930, 7062 O10146 MOV R1;-(SP) : 
3308 08270 4 13746 0S74S4 Mov 0. Xxx, -(SP) ‘PUT SAVED REGISTER ON STACK 
9306 057072 O00200 RTS 
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? : ° 
3 : SAVE TELETYPE STATUS 
git Girvag idea |77eee GENE? OST: teve  o-feee-e.ceRe Seve F SR 
3314 Berit 185037 175284 poe 8: een” . ate SABLE E AND MAINTENANCE 
a319 OSsiz) O0Ns3? Os7430 SSR US OCCRLF vB TS, AN BOTH ia 
le be7i53 Bodsas 38° 
3312 : RESTORE TELETYPE STATUS 
7 7 74 S.RSTT: JSR ,0.CRLF <CR,LF> BEFORE RESTORING 
Ras 1s8 03520 13%, 8: FeSh ; WAIT READY ON PRINTER 
gas estas dge347 DON000 177560 prt s4000,0.RCSR K BUSY F aD 
a5 BIE Stans BES S9RRBo-FSR GLEE BNBY [G8 OP REFEBsy 
3324 057150 105737 177560 TSiB 0. RCSR 
3382 be? tee 119999 OS7460 177560 O.RSEIL: Robe 6. CSRI, 0.RCSR ‘nest READER 
7164 113737 057461 177564 MOVB 0:CSR2°0.TCSR ; THE STATUS REGISTERS 
9328 057172 205 RTS RS 
3350 : TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
3332 ; WORD IS IN RO 
g3 057174 010246 b.cADV: MOV R2,-(SP) 
3334 08? o12704 057517 MOV #0, BUF +6,R4 i BORFER™ START 7POORESS 
33 7 12746 0060 MOV #’0,-(SP3 sCONSTANT ASCII O 
ga3e p37 page 177770 gaeties Ste S880, R2 ” CHARACTER 
3332 O57814 Beas ; ers Soph  conveet to Bscit 
$333 1 10244 MOVB Re, Rea) :ST RE IN BUFF 
3330 08 ASR RO” Suyer THIS MESS 
i 7 ASR R 
934 7 ASR RO : CREE WHOLE PLACES 
934 7 057512 CMP R4, #0. BUF +1 s DONE 
9344 1 S BHI 0.5P NO 
34 7 177776 BIC #177 76 RO GET LAST BIT 
7 ADD (P54 6 s CONVERT TO ASCII 
934 7, 110044 MOVB »- (RY) _ PuT’ IT AWAY 
9348 057244 012703 057517 MOV #0. BUF +6,R3 iL 
3349 7e50 BO45 7? 057322 JSR 540; TYE :TYPE WHOLE STRING OF CHARACTERS 
7254 0126 MOV ($P}+,R ;RESTORE Re 
9351 7256 o00205 RTS 5 
9353 : GENERAL CHARACTER INPUT ROUTINE 
3354 : CHARACTER INPUT GOES TO RO 
9356 057269 105737 177560 8.GET: TSTB 0. RCSR ;WAIT FOR _ 
9357 057264 100375 PL : INPUT FROM KEYBOARD 
3 057266 113700 177562 MOVB 0. "ROB RO GET A CHARACTER 
05727e 004537 057336 ISR O.FtYP :ECHO CHARACTER 
9360 7276 042700 177600 BIC #177600, RO ‘STRIP OFF PARITY FROM CHARACTER 
9361 7302 001766 BEG IGNORE NULLS 
9362 057304 122700 oj0040 CMPB Sao RO :CHECK FOR SPACES 


cere rea ee RK& DR_PRT3 





CZR6JE.P 25-JAN-78 12:08 
3 731 1763 
9364 bee 313 lee700 000073 
9365 Ba? sis 001760 
EE salen ene: 
3368 
93693 
$370 
8372 057322 
9373 057324 103426 
FL Bes 112400 
7S 7 S37 057336 
3 0$7334 000772 
3 
338 7 177S64 
Se Bete 
9382 7344 177566 
3364 fs sete 
9385 7 4 
Ade 
3. 7 7 
5 1 6 
$3930 7 
$332 S702 
33 
9394 
oaae 
ce aa 
ee Bere 
SB OSes 
94 7416 
9403 057420 
gupe be74 4 0SS726 
9406 
9407 
9408 
3410 74 703 OS746S 
S41le 0574 12703 057466 
9413 7442 pier 057464 
9414 74 o3bS 057322 
aie 74 00020S 
9417 057454 000000 
9418 OS74S6 000 
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MACY11 30A(10S2) 25-JAN-78 12:16 PAGE 177 ? 
TYPE ERROR ROUTINE _ 
BEQ 0.GET ; IGNO! LS 
CMPB #’: RO :CHECK FOR SEMI-COLON 
BEQ 0.GéT : THEM IF FOUND 
RTS RS 
: GENERAL CHARACTER OUTPUT ROUTINE 
; ADDRESS OF FIRST BYTE IN RY, 
: ADDRESS OF LAST BYTE IN R3,'(R3)>(R4) 
S. TYPE: CMP R3,R4 ;CHECK FOR COMPLETION 
BLO o,f typ YP1 ; EXIT WHEN DONE 
MOVB (RY 89 :GET A CHARACTER 
JSR 5,0 «ety : TYP ONE CHARACTER 
BR O:T + LOOP UNTIL DONE 
: TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 
d.FTYP: TSTB 0.TCSR ;CHECK STATUS 
BPL 4 :WAIT UNTIL READY 
MOVB RO,O.T CHARAC 
CMPB RO; a84S 1S CHAR TO BE FILLED? 
BNE .tYP1 ; 
move ae44. -(SP) !YES, INIT THE COUNT 
O.TYP2: TST 0. TCSR 
0: TYP2 
CL 0. TOB ;GENERATE NULL FILLER 
Ber asP 
. TYP2 
ST (SP )+ ;POP STACK 
O.TYP1: RTS Ss 
; CLOSE WORD OR BYTE AND EXIT 
: UPON ENTERING, R2 HAS NUMERIC FLAG, RY HAS CONTENTS 
b.TCLS: ASR RS ;GET LOW OKDER BIT 
BCS 9.T¢ : JUMP IF ALREADY CLOSED 
rst R2 : IF NO R WAS TYPED THERE Is 
Q -CLS1 :NC CHANGE TO THE OPEN 
MOV ,oRS :STORE WORD 
O.CLS1: RT PC 
0:T¢: TS -(SP) ;POP EXTRA CELL FROM STACK 
IMP 0.ERR tAND SCREAM BLOODY MURDER 
: O.CRLF - TYPE <CR,LF> 
: O.CRLS - TYPE <CR{LF># 
b.CRLF: tov 80.CR+1,R3 ;LWA <CR,LF> 
O.CRLS: MOV 40. cR +2,R3 ;LWA <CR,LF># 
O.CRS: MOV RY : 
JSR On YPe ; TYPE SOMETHING 
RTS Reo” 
6.xxx: .WORD 0 ; TEMPORARY STORAGE 
0:7: "BYTE O : T=-BIT FLAG 
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25-JAN-78 12:16 PAGE 178 
TYPE ERROR ROUTINE 
0.P: .BYTE O ;PROCEED FLAG = O IF PROCEED NOT ALLOWED 
: = 1 IF PROCEED ALLOWED 
O.CSR1: .BYTE O :SAVE CELL - R C/SR 
0.CSRe: .BYTE O :SAVE CELL - T C/SR 
- - EVEN 
0.80 WORD “BE 
b.cR:  .BYT 01s ; «CR 
. .BYT Ole , <P> 
.SYT ‘ss 5 # 
6.LGCH: .BYTE '/  , 
YTE oO1S > CARRIAGE RETURN 
wr > > 2 
.BYT ’G ~ = 
YTE ole > <LF> 
YT od, 3; ¢ 
YT “7 s ¥ 
YT a?) ; QO 
YT "Wl ; WwW 
BYTE 5 . £ 
‘BYTE : 8 
O.CLGT = .-0.LGCH ; TABLE LENGTH 
6.7:  .BYTE ’S ;D0 b 
: VTE "Pp :NOT 
.BYT id ;CHANGE 3 
‘BYTE O : THE 4 
‘BYTE O : ORDER 5 
‘BYTE ‘B HERE 6 
0.LG = -0.TL 
6. BUF - ;6 CHAR. BUFFER WITH 
.BYTE ' ; TRAILING BLANK 
EVEN 
b.TRTC: TRT ; TRACE TRAP PROTOTYPE 
!THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
c = 0.0DT-40 
6.URO: O ;USER RO 
0 : Ri 
0 : R 
0 : R 
= : RY 
; RS 
O.uSP: 0 :USER SP 
gut: Bitsee Ef 
0.PRI 9 hi PRIORITY 
O.MSK 0 ; MASK 
0 :LOW LIMIT 


SEQ 0178 
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BREAK POINT 
UIN = CONT 
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2S-JAN-78 12:16 PAGE 179 
TYPE ERROR ROUTINE 


;HIGH LIMIT 
Lists. ADP1 = ADDRESS OF BREAKPOINT,CT = COUNT, 


SEQ 0179 
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CZREJE.P11 2S-JAN-78 12:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


61788 , 
535 4328 4381 4412 4475 4566 4625 4736 4796 4881 4940 





THO. 834856 iia3e 
pais = 000400 ieee 
| ae : 18728 Lge 11881177, 2034 =s«3113sMGSsSS@)=4I19.Ss«4790.s«87 934033 
Die: 10618 1071 
| BiTo2 = 10608 1070 
103 = 10s98 
E se es 
T = % 1 
T s 1 : 1 
BITOS = 1048 1064 6350 
A s hat ite3 Be e426 
Tl = 1 e ll 
Tio = 1se8 113i «1148 tuee = 1200 1214 = 1228 et 1255 HOS 
Bitte : 1Bed8 1 118? 113 t A Co ck Eg 
T1l3 = 1 oS as ll 1171 118 1203 1217 1231 1244 1258 e410 a sane 
Bitte = 1BU58 «tide «= HBSteG HSS tBd St 1835 dg 4a 
Bite = 19708 1160 1178203 
Bitg = 1 BC 6 6) GC 
BITS = 10678 1149 118911821195 :1808 e232 1235 de 
BHTS = {Pees =6tis2 | othe «=ottee = otHBS tl tsi? = gst stS82 0152S a3 
BITg = leds 1129 61142146 18S 1198 dele teeb 1838 e3 
pb vec: 19638 1 ii4a ile? 12i 1525 = {Bu q 
: 11658 4289 «4449S «4745 
a ise ie die 4B ae xa = 
BSEDSS ige48 4171 «Ss S41 S94 
BYE $195 32883827, eis, 3303 3330 3334 3338 3342 #« s4O7e 
Si Wer Wt: Bis aie Goce co 
CCLR = 1i378 3484 4 3 71937 7% 780 3794 3888 3936 3966 
ces ee oe ee 
cERR = 1igse 6303) 3318 3333 938) unset 2S#337—s«38SS2 SSE 
ae 4e34 338 w74g2S«C«*dBOS «6S iBS1SCi‘S)Ss«*SS@S~—CSEAL 
CHKFLG 4298 Ediee sso. sso¥ sso8 
CHK see’ 3593) 347) MOs@ 1364913 45S HOLS MSGHMES2 N76 (4828 
CKCERR 5283 S287 $8 03 55238 
KSHR = 105907 65398 46399 96425 73008 
CLEAR liige = 6146 
CKOF 030264 6004s 
CLKON 03017 S828 
CLOCK 030230 3025, «59938 
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“SLBFLG_ 9e44 19 eqyg S1378 
Ser Be ee 
ERONT . Boars Ss e607 gS 731g 7380 7388 738% 75 Oi? 7360 7365 +«#©«7370 
os { $395 $345 $367 S403 55 syie = F4ag—sBGCSHC7BCN 
oyu? = 74530Ss74SS 7D 6s 74897471 i 
roa 7514818 3527539 40 7546 7585 75eS 7578 75877594 
- zel1 781 1 9630 9636 7646 7650 7ee4 Peel 7% 
76 7700 0s 77g 77 zeae 7740 77NG 778 2270 7379 
5 sei. BF? 5 58 Soug7B21)0Sss7B83)SsC7RGSSC7873—SCts«78? 
og 5a92 «7899S 7904 5910 «7918«S 7925s‘ ” 
6303 83 e331 8589 85% 93 
CRLF 00 ® 64 &51 
TO. = 004000 li3z28 | 529 
CYLADD 001400 1511s 4064 © Seeox Seeix Se6ze Su6gH SEGYH SEGSH SEGIH StOYH StOSH SeaGH S687 
CYLDIF 0013 3108 se44e * S64Y7* Se4e* Se4u9* SESOx S6S1  SES3* S670" S671" S672" S673* 
ns 22308 Be3cy «Be7e* 23g, 239° Bou | Beue 
pares 001466 ieuce 4278 4327 4330 4411 4414 4471 YSES 4621 4792 4880 4936 
DATAL i gues 4380 4474 4560 4624 4735 4795 4875 4939 
DATCMD O24S04 “ ae Wooo, 4263 NSH Ges HIG 480573 46317194740. 01 (4a 
K =] ti7se 
Lo. = 11818 
ISP = 1775 13381792 ‘3 
dostiss ouse 4 boe5e «SiS = 387 
pre ee BEY BY oe ct che Gee BORIS 
lo Bails CRORES BCR CRC BEE eae 
ee. Be eo Beek 26738 esi Ba Busg as e414 GNIS aH 
5aq 3 4 3 ceo BG S740 S47gss«Sgy Ss Bua ugg S044 
5534 39 ag0«Scug)Ss«Sc7ySs«édS7qsSs«édScgySsSsgq—SsSs 549 Seog Be 14 
13 ged ee 33 uy BeH BESS ETON E719 Bred a7e9B7SH 
OF12  os4eue Bs 7e4 878987668 
OF 1S ue 550g «5714. s«B734.0S's«738)—2B49—StséS7?78 
Beg 6 Beusae sacg aa, OP 
oe = sree 5180 2135 goog g4h gig eek cere EALCSSGCSSSSCS8GG 839g: Sbg 
3 2503 3 S83 «Stag SeyCSZEGCtCSERG:SC(iéSRGCSHGQ SHG 5809 
814 ® 
5012 824s 
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1442 eHue 2637 g4lie 
1467 2457 e4 272 84158 
1 317 1 gyeis 
is 158 54 eu8de 2260 2266 8425s 
72 3598 7 732 8743 8753 8761 8772 8782 8794 8804 9819 8834 8849 
1 487 84338 
16 18 84388 
17 84428 
17 478 
176 253 2542 2772 B4Se8 
1 gi g8 2198 2209 2312 2322 2842 2847 84Sb8 
1 2193 2249 2286 2302 2307 e342 84608 
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104 83668 8722 8734 874S 87SS 8763 8774 8784 8796 8806 8821 8836 8851 
16 2697 7 ae 84758 
el 257, S 4808 ' 
ees e14 153 e173 2214 2219 2327 2332 848S# 
303 84908 
0S2337 2597 84958 
370 sods 2607 2612 00# 
e4 s3 Sess ebe7 85058 
e732 273 2797 e802 2807 esle 850948 
111 eee4 gb ise 2397 240e 2407 83738 
26 5 gouge 
4 4 26S2 2657 2662 2667 2702 85338 
052717 2672 S398 
Bese 4 Su35 468 
05116 a3 é 35" 2e44 2747 83808 
De3065 5587 £3? e517 eSee 2Se7 esse 2767 8ssss 
0$3133 85658 2 
Be3k37 pala 67 2472 85698 
33 SS7 S778 
053316 85868 98730 
053361 esses Bza4 
053432 256 S& 
053503 437 2717 8607 % 
peseue ris «Beles 
0536e3 6735 757 86218 
053666 86278 813 882 8843 
053676 86298 8817 8832 8847 
pts Soaks 1S 8830 884S 
7, 86358 68 
oS 2687 438 
Bod 7 ee71 276 2281 2347 2352 83848 
0000 11358 
sted 179e¢8 §=62@906%® e914 6380 6402* 
174 12818 e914 
100000 11548 
OeSe3e 3170 3283 505893 53988 S401 
000040 11958 
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CZR6JE.P11 25-JAN-78 12:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
RTTL OC 7788 6406* 6438 
«BERL Bat isE 189 8 ages Saat S4S9«s«S463% S473% S483* S493e SS13% SSI7* 6161% 6208% 6212% 
i oe : j * 64 6431 6438 
! ee 
| Tero Ooi 334 1363 18808 
ATAL le 18208 x 
FLG 104 6587 6590% 6618 #6627" 66558 
ILL 1156 17998 6486 #£6517 
ll 17988 6517 
il 17828 
aL BBs Mth 
eaeus 7298 
= 956 
SHIBTS 001000 13188 
pias as a ere 
ee " 
$fitac Batis 15685 «baeix ba40 been Bae 
ITEMB 1114 17798 6409% 6417 £6438 8866 
_ : 1giee 64 6517 6956 6966 7027 
oboe 1106 rey 2899% 6191 6360 6376% 6381 6383 
SLPERR 001110 17778 2900 5518 6049 60S52x 6218 6360 6377% +6383 #6428 
D0 1242 18458 
001 1B438 
pot igsst 
L OOlel 1319 1323 19168 2917 4°S1SS 6375 6415S 6461 
SMAMS1 001240 18398 
001244 18478 
00 teeg 18508 
DO 1 Le 1 ry 
901002 13198 
G ug 65ee% p54 6629% 66338 
69718 
te fises eps 807 
sreets 1210 18198 6602 6610 6622 6626* 
361 6824 69698 
SnTVe is 1241 18408 
SMTYP; 1245 18488 
SMTYP3 001251 18518 
siiTyPd g01255 1eo48 
SHXcnT pTe30 6373 63838 
SNUTST pooneL ete oa38 eae 084 2508 33598 3361 34288 3430 34698 3471 349648 
= 
3038 3037, 3085 earth 678 3535 5 3334 38988 3900 39788 #3980 4os3s 4oas 
42078 420 W665" 4667 49828 4984  SOOie 5003 
NT 933330 be 3 * 67158 
TVL 035046 344 04 0658 
ee Bars ee ne ee 
ass b01216 1Beee S373. 439 417 £38? 5099s S100* S108 5121 5127 6367 #6384 
ASTM 001006 13218 
SPWRCT O31272 6248 6249% 62598 


ce 











E16 


CZR6JEO UNIBUS RK& OR PRT3 MACY11 30A(10S2) 2S-JAN-78 12:16 PAGE 200 SEQ 0199 
CZREJE.P11 2S-JAN-78 12:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


1606 eo33 6e4e8 6251 
1 6e4 624 
l2 $3108 6438 6517 6878 6949 6966 7024 7027 


c 
g 


ae 
aie 

tu 
Bs 00 
ig 


ya HRKKHE U 2 
; 72338 7304 
7139 
$SC 314Se 2887 63348 
SSETUP= 137 egage 2886 2887 2 2891 2893 289s 2896 2897 28393 5097 5152 6335 
63 64eS 6433 6761 6766 6767 6797 6973 
SSTUP = 177777 essos 
s2urns 531 346 4 71568 
Sevec = Obueus Tae8e T300" 
SSWR = 167400 S4e8 95) 960 961 36 963 964 3965 36 1808 8093 
2896 289 2839 2900 3093 3266 3369 3436 3476 3504 3$36 89g 
3836 pais 2388 4104 4217 4675 4993 5023 5092 50 $113 4h? Slel 
6326 6 63. 6329 6330 6348 6350 6351 6354 6355 6363 
6364 S 6377 6383 6390 6391 6392 6393 6394 6410 6422 
6426 6438 
SSWREG 001232 18308 
Po 000000 967 239 6330 833} 35: 
STESTN OO1e14 18218 3371% # 6 6 8671 8672 680 8691 8703 
STIMES 001174 78 7% 3098%  3266% 383% * 3476%  3504% S36 3689% 3836% 3911* 
3986 4104 Yel7*% 467S#  4993% O23 SO098* 6363% 6370 6373% 6383 
STKB 001146 173948 6721 674e 6753 778 8 6833 
STKCNT 033334 grease aeace 6767 784% 33 6900* 
STKINT 033344 286. 749 762 3 67378 6758 6819 
STKQEN= 033343 672e68 6792 5303 
STKQIN nent 723% ecaee ° 6 6791% 6 4 6794# 
$STKQOU 03334 7248 Bf * 1 6902# 3 6905# 
STKQ@SR 033342 3746% 750 3761% 67258 6728 6794 905 
STKe ay eet £23 8 eck 6743% 6774% 6776 6782% 6804 6820* 6830 6842ee  6862% 
TMPO)8=—-:«d>0O01 160 18018 3747% (3750% 3751% 37 3754 3756 4462ex 4Y4Y8S*# 4784*  4807# 
STMP1 O01162 1e0e8 4463% 4469 44932 45 4619 478S* 4790 48iS*# 4 4934 
STMPe 001164 18038 4511" 4514 4519 4524 4Se9 4534 4539 4O44e 4S45 4554 4SS6 4607 
4611 4616% de 4835% 4869 4871 4922 2 4931% 4932 
STMP3 001166 18048 aa15* 4S47# 4568 4618% 4836% 4883 4933# 663 
STMPY 001170 1e0Se 316 3200® 3ell* 3280 3295 3298# 3lee 3357% 3396* 3408 SOS6 
STMPS 900117 isdee 3502s eqegx 51 517 
STN = po0028 Suge 4 42 0478 3075 3082 30988 3250 32668 3301 3389 33698 
3371 33 1 3420 3428 34368 40 3469 34768 3483 3496 35048 3521 
35368 367 898 3827 38368 3885 3891 3898 39118 3978 39868 4083 41048 
4160 420 42178 4665 46758 4982 49938 4998 5001 50238 
STNPWR 035174 7086 7087 71078 
B 001152 17968 6S506% 6517 
STPFLG 001157 18008 6455 6517 
s 001150 17958 6504 6517 


A 





F16 
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CZR6EJE.P11 2S-JAN-78 12:08 CROSS REFERENCE TABLE -- USER SYMBOLS \, * 
TRAP 35562 ad 72698 
TRAPe O35604 72808 gah 
STRP = 000016 7es4e 72938 72948 72958 72968 72978 7298 72998 7300 73018 #73028 #73038 
saya Zauee 73078 
He ™ 1 S { os salts: 
$1 TNM 1 17738 227 *  §$097% S129% 63¢5 6352 6374* 6375 6380 6384 6402 6436 
TTYIN 5315 691 6929 6947 6961 696548 
Styppe oaedi4 — 65338 296 
$T p35 743 645Se 6615 7284 7292 
STYPEC 032344 af, 6492 64939 65048 $6505 6864 
STYPEX 651 Sle 65158 
srvege 1 pecie 233 
TYP 1 667 So738 7295 
STYP 3106 66668 es4 
SUNI 001222 1824s e74é* 3005* 3382*% 3389 3399 3485 3655 3739 3795 3803 3967 
4851 332 S352 5379 S421 S422 S423 Suey sSSe_ - SSES 5573 5581 
5618 6130 614S 
SUNITM 901010 13228 
SUSWR 1234 18318 
$VECT1 001260 18568 
SVECT D0 lebe 18578 
SXTST D31464 63398 
SSGETY4= 51138 
SOFILL 033331 6667# #6671% 6681 67168 
SYHOCAT= £48428 U bgp 6412 
‘ = oss4Se 12768 12808 12858 1288 1295 12968 12988 13008 13018 1307 13088 13108 
17708 1813 19598 19608 19618 19638 19648 196S#8 2884 2833 2900 Slel 
pete Pay 6383 63 6438 6517 65838 66368 #6721 672e5* 6726 67278 
6366 69738 7027 706S#* 71278 # #+(\jgésSs s8938e 89398 9092 9321 9325 9357 
9443 9451 S4S4e8 94628 
SASTA= HXHHeX U 6588 6591 
= 001000 1307% 1312 





SEQ 0201 


CZREJEO UNIBUS RK& DR _PRT3 MACY11 30A(10S2) 2@S-JAN-78 12:16 Ay BO 
$ 


CZREJE.P11 2S-JAN-78 12:08 CROSS REFERENCE TABLE -- MACRO Ni 
CALIB 14108 le 
CHECK é a §2e7 3892 3646 4057 4135 4312 4354 4400 4438 4S93 4651 4755 4827 4908 
COMMEN 19878 : 
CwOe 13828 
ORCLR 139S8 6143 
ENDCOM 10878 
ERROR 9818 3078 2128 an aie 3173 21% 2 3224 50 ES 3 se77 se 229% 
1 Be Be Re Ge Ge BS Be EY Sg BY By Ba xs 
3651 36 58 62 4 387} 73 3 33 704 320 33 3 3263 7 769 7 
3298 38 0 30 4 6 74 886 91 934 4 3 
96 3 74 400 40093 4023 4028 4032 4037 4041 4045S 40S0 4060 
qe a? 2 u0B3 oie wba uses pL aut uses uiee 338 mt Ex, uses wad udtz 
4316 4 % 4318 4321 4 28 ee & 2 d54é 4529 d5e¢ 4563 4520 4367 4 93 me T4 
4391 4394 4403 4404 440 4406 4409 4419 4426 4429 444 deag 444 4444 e34 
4467 4481 4487 4S00 4S 455. 4574 4581 4584 4596 489 4S 4S 4632 46 
oo i fe te oe oy oe i ve ce i ie ee et 
im i ie oy ke ds oe ep oe ey oe ei ee 
S066 S086 5531 5536 S540 S5SSS 5568 5576 ss84 5591 5617 6097 6109 6117 6121 
6 | 6139 61'te 6148 61S1 6210 
FEARS i 78 4127 4304 4346 4430 4585S 4643 4747 4900 4958 
hay | 10878 
TS 10878 5152 
3 1484s 
HOT 14978 
L ® 432 3 70 
G 8 Bee 3084 32508 3252 33598 3361 34288 3430 34698 3471 34968 3498 35218 
3 36768 3678 38278 3829 38988 3900 39788 3980 40838 4085 42078 4209 46658 4667 
LT igs . 4984 50018 #5003 
NELTST 10678 2028 goes 3250 3359 3428 3469 3496 3Se21 3676 3827 3898 3978 4083 4207 
QaTAG isos 1896 
‘OP 10878 6570 6630 6631 7016 7ele 72S4 
PUSH 10878 6529 6591 6593 6614 6990 7183 7234 
QKPACK 17318 3484 3654 3965 4071 4850 
QKSEEK 15098 4191 
QKSRT 17078 3988 6106 
Q@KUNL 17478 #83508 3665S 
RDATA tacos 
14558 
REPORT 10878 
SBO' 16See 4550 4864 
sc 256° 304 3097 3265 3368 3435 3475 3503 3535S 3688 3835 3910 3985S 4103 4216 
T 46 ou eas 5022 5096 
SETTRA 7eaue cE33 7294 7295 7296 7298 7300 7301 7302 7303 7304 7305S 7306 
SKIP 10878 3024 3075 3301 3414 3420 3440 3483 3885S 3891 4160 4998 
SLAS 10878 
SPACE 10878 
STARS 10878 1293 1304 1306 1313 1766 1813 1816 3036 304S 3082 3096 32S0 3264 3389 


CZR6JEO UNIBUS RK& DR PRT3 
CZREJE.P11 2S-JAN-78 12:08 


3367 3428 3434 
(4 ns CS 9 
7263 8853 


SWRSU 0878 e29018 
284 


0878 3118 3188 
TYPOCT 10878 6825 


TYPTXT 10978 
WOATA 15368 428 
WRCHK = «16198 433 4416 
14348 44 4717 
SSC 17648 
SSCMTM 17648 1801 1802 
Ha a 3036 3082 
46654 001 
SSSET 72848 7293 7294 
SSETM 29178 
SS$SKIP 10878 3024 3075 
EQUAT es 77 
458 946 
SETUP 9428 2850 
‘SWRHI 94e8 956 
"SWRLO 08«S4ee Ss 
‘SACT1 S4e8 1291 
“SAPTB = s-18148 
“SAPTH §©6=§-42@ =: 1302 
“SAPTY 9428 6584 
“SCATC S4e8 127 
“SCMTA = SH S754 
; 9458 7066 
4 9428 702 
> SE 9428 508 
7SERRO)8—« Soe 
“SMULT S4e8 7169 
7$RO0C «=: Hows 974 
-SREAD «6s «6718 
:$SA 9428 7216 
:$58 9428 7128 
- $C 9488 €7320 
:$SUPR Hee iG 
“$TRAP = « Hew Zeb 1 
:STYPD «6: SHS s«BS17 
‘$TYPE 94o# 6438 
‘STYPO = SHY 


ERRORS DETECTED: O 


MACY11 30A(10S2) 


3469 
6885 


8862 


3234 


4S71 


1803 
3250 
7295 
3301 


3474 


2786 


2S-JAN-78 12:16 PAGE 204 
CROSS REFERENCE TABLE -- MACRO NAMES 
349% 3502 3521 3534 
4 4 

PY as) 
3739 «33785 = 3803~=Ss« S070 
ye86 = 4944 

1805 =: 1806 

3428 = 3469s 3496-35521 
7298 «= 7300S 's«s73012=Ss 7302 
3420 3440 3483 3885 


3676 


e976 


S408 


3676 
7303 
3891 


3687 


7884 


6183 


3827 
7304 
4160 


3827 


7Ed 


6228 


3898 
7305S 
4998 


3834 


af8d 


3978 
7306 


3898 8§=©63909 
Dc 
| 


CZR6JEO UNIBUS RK& DR PRT3 
CZR6JE.P11 2S-JAN-78 12:08 


2:C 


MACY11 30A( 1052) 


2S-JAN-78 


T16 


12:16 PAGE 205 
NAMES 


CROSS REFERENCE TABLE -- MACRO 


JE.SEQ/SOL/CRF /NL: TOC/DOC=DSKM: CZREJE.P11 


DSK2: eo Eu 
RUN-TIME: 3 2 ECONDS 
RUN-TI PATIO: 755=6.0 
CORE USEC (59 PAGES) 
DOCUMENT PAGES: 203 
00010000 780223 


EOF 1CZR6EJESEQ 


POP1O 411 


SEQ 0203 


